REM & 



B 1 



SEQ 0001 



IDENTIFICATION 



11 
1^ 
15 

14 
l r ^ 



1*> 

20 

cM 

^s 

cV 
"* ■ 

30 
31 
V 
3^ 

34 

3' 

3^ 

3/ 

38 

3 s 

40 

41 

4/ 

4.' 

44 

4b 
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THE FOLLOWING ARE TRADEMARKS OF DIGITAL KJG'IPMENT CORPORATION: 



DIGITAL 
DEC 



POP 
DECUi* 



'."NIBUS 

DEC TAPE 



_fii_ 
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CI 



SEQ OOQ<> 



4; 
4tf 

4^ 
SO 

SI 

s< 

S4 

St. 

t»5 
t»4 
^ c > 
6t> 



j THIS PROGRAM IS BASED OH ONE WRITTEN BY NESTOR HERNANDEZ. 



NOTt: THE PILE 
VERSION 1, ANY 
DOCUMENTATION. 

REGISTER USAGE 
RO 
Rl 
R? 
R^ 
R4 



I/O ALi. WORKS CORRECTLY, THOUGH [T IS 
LINE BEGINNING WITH "|VER2" SHOULD BE 

RWT 



COMMENTED OUT t OR 
UNCOMMENTEU, SEE 



TEMPORARY 
TEMPORARY 
TEMPORARY, USED 
LESS TEMPORARY 



STATUS 



RS 



OUTPUT 



WORD 

BITO 

BIT! 

BIT? 

BIT7 

BIU5: 
DEVICE 



IF 



I/O STRING POINTER 

USED Ry I/O ROUTINES TO PASS CHARACTERS 

TO PPSS ARGW1ENTS BETWEEN FUNCTIONS 
LOW LEVEL ROUTINES SHOULD NOT USE THIS 

NEEDED LATER, THIS CAN BE PUT IN MEMORY) 

CALLED FROM CHAIN FILE 

SYSTEM HAS NO PRINTER 

SET • 2K ROM, CLEAR 8K ROM 

OELETt KEY WAS STRUCK 

XOFF HAS BEEN SENT 
BUFFER ADDRESS 
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1)1. 



SEO 0003 



».»8 

'0 

-1 

"5 

*4 



.Tint frAROM BLASTER UT II 1TY 

l.DSAOl GBl. 

.NLISI CND.TOC.BfcX.Mt ■ ,MD 

j .ENABl. ABS,AMA,LC 

.SBTTl. UTILITY REVISION HISTORY 



,*8 
;o 

t^O 

81 

85 
84 
8S 
8* 
8 7 
88 

8Q 
^0 

*1 

93 
9i 

^b 
97 



REVISION 
0,0 



DATE 
JAN 84 



REVISION HISTORY: 
REVISION 
1,0 



AUTHOR 
NESTOR HERNANDEZ 



CHANGE 

INITIAL RELEASE VERSION, 
REWRITTEN ALMOST COMPlF.TEU Rt 
RUSSELL YOUNG FOR APRIL RELEASE. 



.LIST MO 



l-i. 
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PROGRAM 0EF1NED MACROS 

l)q .SBTTl PROGRAM DEFINED MACROS 



100 
101 
KV 
105 
104 

:o r » 
uv 
io. * 

108 

104 
110 

111 
11.^ 
11< 

lib 

If.* 

116 
ll c > 
120 
1J1 
1 .='..' 



SEQ 0004 



j JUMP AND RETURN 
, MACRO JRS ADDRESS 
JMP ADDRESS 
,ENDM 

{ALIGN TO BITE 2 OF AN 6 WORD 01 OCK 

;USED TO EASE ERROR RECOVERY ON INPUT PARAMETERS 

.MACRO ALIGN.? 





.IF 


ALIGN? 


<< . -BE) 




.ENDC 






.ENDM 








iTiPE A 


MESSAGE 






.MACRO 


. TYPMSG 


ARG 






. NARG 


ARGS 






.IF 


NE 


ARGS 






MOV 


arg,ro 




.PNDC 








v)SR 


PC, TYPMSG 




♦ ENDM 







I" 1 

t-AROM ni'V.HM um in macro Miaoo io-apr ho io : s<> pagl v 

SEQ 0005 
PROGRAM ObF'INhD MACROS 

1.^ .NLIST Mf.MD 

K?t> .LIST MC 



EAROM Bl ASH R UT 11 III 

INITIAl I /AT ION COOE 

128 
129 
130 
131 

l?.: 

133 

134 
13S 
13* 
13.* 

138 
13* 

140 
141 
14 J 
143 
144 
14S 
146 
14? 
148 
149 
ISO 
1S1 

152 
153 

154 000000 

155 

156 000000 

15? 000004 

158 000006 

159 00001c 1 
160 

161 000014 

16c 3 000020 

163 000026 
164 

165 000034 

166 000040 
16/ 000044 

168 000046 

169 000050 
1/0 000054 
1/1 

1/2 

1/3 

1 -'4 000062 

1 i'S 000066 

1 '6 0000 /4 

1.*.' 

1 /« 000102 

i ;•* ooono 

140 

141 000116 
1H," 000122 
1H3 00<"U24 

ieA oooiio 
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121 



OOS.'b/ 
001405 
016/06 
000410 

01066/ 
012/3? 
01273/ 



013/46 
001004 
012604 
023/16 
001540 



013/4*) 

042/3/ 
052/3 7 

012/3/ 
012/3/ 

012/0' 
01134*. 
013/13 
I 1 14346 



SEQ 0006 



003 340 
'.03332 



00 3 324 

000200 000024 

0033 70' 000044 

000001 
000042 



000046 



0000S6 015 746 000034 



1 / /520 

000100 
000040 

OooUV 

000(102 



1 7/S20 
1//S20 

OUUllHJ 

000102 



.SBTTL INITIALIZATION COOE 

♦ 

INITIALIZATION ROUTINE 

ROUT INF TO: 

SETUP THE ORVCOM AND OTHER TRAP VECTORS 

SETUP THE DISPLAY £ SOFWARE SWITCH REGISTERS 

SETUP I/O BUFFER 

SIZE SYSTEM MEMORY 

INITIALIZE PROGRAM STACK 

SAVE MONITOR STACK POINTER 

CLEAR THE EAROM IMAGE STORAGE AREA 

DETERMINE EAROM SIZE AND LAST ADDRESS 

SEARCH TOR THE ADDRESS OF UFD HEADER 

SEARCH FOR UFD EXPANSION LIMIT 



{PROGRAM SHOULD RE LINKED SO BEGIN FALLS AT ADDRESS 200 SO 200G WILL 
; DO A RESTART. MORE IMPORTANTLY, BEGIN *MUST«- F Al L ON AN 8 BtTf- 
; BOLNDRl OR THE PROGRAM WILL NOT WORK. REFER TO THE COMMENTS AROUND 
j UPORAM AND THE M .CRO ALIGNS, 



BEGIN: 
♦ 



5$ 



/$ 






. WORD C 

TST INISTK 

REQ 5t 

MOV INISTK, SP 

BR /J 

MOV SP. INISTK 

MOV 0200, B024 

MOV 0APTINF,o)044 

MOV 0HM0.R4 

MOV a*4«', ( SP 1 

BNE 10$ 

MOV (SPU.R4 

CMP bJ046,(SP) 

BEO 0«.'M 

MOV h)«<4, ( SP "t 

MOV 0TRPHAN t b)0 34 

MOV oJOBCSR, ( SP i 

HIC oBIT*>,d)OBCSW 

HI'. 0RIT r j ( u>ftBCSR 

MOV 0102.Q)f>100 

MilV -V.aol 02 

MOw 06, H3 

MOV i R3>, I ,P i 

Mi»V tff.'l .SS'i'-oHi) 

MUV -lHi>»-vSPV 



: BEGINIWIT 

{REENTRi ? 

5 NO PROCEED 

j US - RESTORE STACK, SKIP INITIALIZATION 



I SIT ><P » OR A 200G TO RESTART 

(St T *.*' f OR APT 

jODMMi INFORMATION FOR APT 

{REENTER HERE ON 'C OR 200G 



;FIX STACK. CLEAR STATUS 



{SAVE MONITFR TRi PS ANO USE. Ml OWN ROUTINE 

j( IS THIS NEEDED; ) 

{ SAVE OLD BCSR VALUE 

{ENABLE BOOT ROM 



>M i.»P LINE II Ml CiOCK VICTOR AT WO 
RE TURN FROM INTERRUPT 



iUUN'l LU'uL CORRECT U^ACt 
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i'l 



INITIALIZATION COOF 



SEQ 0007 



185 

186 
167 
188 
189 
190 
191 
19? 
193 
194 
19b 

196 

19.' 
198 

' k 99 

200 

201 

202 

203 
204 

205 
206 
20/ 
208 
209 
210 

211 

2i? 

21 < 

214 



00013c? 

000136 
000140 
000144 
000146 
000150 
000 is? 
000154 

000160 
00Clb4 

000170 

0001/4 
000200 

000202 

000204 

000*? 10 

000220 
000224 
00022b 
000230 
000232 
000236 
00024? 
000246 
000252 

000254 
000264 



012715 
005000 
062 /oo 

001405 
005710 

ooo ; ;3 

02262^ 
062700 
162700 
010067 

012713 

005737 
000403 
022626 
052704 

004/67 
012623 
012613 
103411 
012702 
004 76 / 
01263/ 
01263/ 
00020/ 



000766 



00015?' 
020000 



020000 
030000 
003156 

000202 
000000 



000002 
003014 



000410 
000024 
177520 
000034 





MCV 


<>30$,CR3) 




cm 


RO 


20$ j 


ADO 


020000.RO 




BtQ 


40$ 




rsr 


(RO) 




BR 


20$ 


30*; 


CMP 


I SP ) > . ( SP ) ♦ 




ADD 


020000, RO 


40$: 


sue 


030000, RO 




MOV 


R0,M0NADR 




MOV 


050$, (R3) 




TST 


i)OPRTCSR 




BR 


60$ 


50$: 


CMP 


( SP ) ♦ , ( SP ) f 




BIS 


0BIT1.R4 


60$: 


.TtPMSG 


Of HELLO 




JSR 


PC,REAROM 




MOV 


(SP)».(R3)» 




MOV 


(SP^.CR31 




BCS 


110$ 




MOV 


OMAINM.R? 




JSR 


PC,M£NU 


100$: 


MOV 


(5P)».30BCSR 




MOV 


<SP)»,B»34 




RTS 


P". 


110$: 


. TtPMSG 


tfNORtfM 




Bf. 


iQQ* 



jSIZE MEMORf TO FIND WHERE MONITOR IS 



jGET HERE THROUGH BUS TIMF OUT FIX STACK 

jFXTRA 20000 ADDED HERE 100 

i COMPENSATE FOR EXTRA ADD IN EITHER CASE 



j IF HFRF, NO PRINTER ON BUS, SO USE CRT 

l : PRINT uriLITf IDENTIFICATION 
I EAROM DATA INTO SYSTEM MEMORY 
I RES TORI- TRAP 4 

jROM NONEXISTANT, PR1N1 ERROR AND EXIT 
,-lOAD TABU AND FALL. INTO MENU 

{RESTORE 010 BCSR VALUE 

j RES TORE MONITER TRAP HANDLER 



iRETURN TO MQN1TUK 



FARGM Bl ASUR UTIl Ih 
INITIALIZATION CODE 
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11. 



21b 






21? 






218 000.766 


010246 




21** 0002/0 


011603 




»V0 0002/2 






221 ooo!soo 


012/00 


012/07' 


.\\^ 000304 


004 76? 


002140 


22? 000310 


012301 




224 000312 


005300 




22^ 000 M 4 


00240 7 




22b 0003 It) 


003011 




22/ 000320 


005723 




22» 0003.'^ 


105/11 




229 000324 


001403 




230 00032b 


12216? 


003016 


231 000 33*? 


0013/2 




232 000334 


005001 




233 00033b 


004 / 5 3 




234 000340 


000753 




235 






236 00034,? 


012 74b 


0002/0' 


23" 00034b 


012/00 


012414' 


.'fS 000352 






2 3'* 







5EQ 0008 



jrtfrNU GIVEN 
j CHOICE, AND 



Ml UVi 
PAINT 



10$ 



tRRORl 
ERROR} 



MOV 

MOV 

.TYPMSG 

MOV 

JSR 

MOV 

DEC 

BIT 

BGT 

T5T 

1MB 

BEQ 

CMPB 

BNF 

ClR 

JSR 
BR 

MOV 
MOV 
JRS 



A 51RUCTURE 
PERFORM IT. 

R2, C'iP) 

(SP),R3 

(R3)» 

aPROMPT ,R0 

pc.oe TCOM 

(R3)»,R1 

RO 

20$ 

l.RRORl 

(R3)» 

(«1) 

20$ 

(R1)* # INSTR 

10* 

Rl 

PC,qKR3)> 

PAINT 

0PAIN1, '.'SJO 
9 ILL COMORO 
GET COM 



POINTER 
IT USES 



IN 
RO 



R2. 

AND 



WIl 
R3 



PRINT THE MENU, READ THE 



jRELOAD MENU POINTER 
j PR INT THE MENU 

j GET THE COMMAND 

jRl NOW HOLDS LEGAL COMMAND POINTERS 

jRO IS THE NUMBER Of CHARACTERS 

j 01 FAULT RETURN 

sMORE THAN I CHARACTER IS ILLEGAL 

INCREMENT FUNCTION POINTER 

s CHECK U DONE 

jCHECK NEXT POSSIBLE CHOICE 

;SET UP FOR HELP REQUEST 
;D0 FUNCTION 
j REDRAW SCREEN 



j SET UP FOR RTS 
jIUEGAl COMMAND 
jGET <CR> BEFORE- 



PRINT ERROR 
PAINTING MENU 



REDRAW MENU 



2<10 



t KRilM HlA'iltR UT 11 m MACRO MIOOO 10 -APR A4 lOj.V) PAUfc 10 

S£Q OQOV 
INITIAL L'ATION COOF 

040 {MENU ROUTINES - LOAD MENU STRUCTURE POINTER IN RO AND GO TO COMMON CODE 
04 3 

044 jVEROM.U: MOV OUPDP,R<? (UPDATE PERTPHERA1 S 

04 r » {VERO JSR PC. MENU 

04o {PERIPHERAL PROCESSING GOES HERE 

04 7 0003bt» REPlUT: {CONVENIENT RTS FOR JUMPING TO 

..'48 000 3Sh 00000/ OUT$: RTS PC 

OSO OOO.^t.O 010/00 000440' M.St MOV *HARDM,R2 j CREATE SYS COM FII.F FROM ROM MENU 

OM 000364 000740 BR MENU 

01-3 0005r>t* MS.H: . MPM5U <>*MSG4 {PRINT THE HtLP MESSAGE 

0S4 0003 76 j:«S RET COM 



i i 



O l m 00040/ ;L\*00 000474* M.Hi MOV tfHEl.PM.Rd {HELP MENU 

OS ' 00040b 0007^7 BR MENU 

OSH 

0S9 



I<1 



F/«?JM lit ASU R UT 11 Hi 
INITIALIZATION CODE 



261 
2'0 
2b * 
2M 
2b5 
2^n 

2 b ■' 
2b8 

2r»^ 
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000410 
000412 



2 '.' 5 

2 .'4 

% * r 
» ■ » 

i- 1 76 

> ' » 

2?8 

279 
280 

281 
282 

283 

284 
28b 
286 
28/ 
288 
289 
2^0 
291 

292 
2 9 5 

29 ; 

29H 
299 
.'.CO 
301 
302 

30 ^ 

.'504 

3os 

50*) 
'.08 

:*,o^ 

3io 
311 
''• 1 1 ' 

M< 

314 
M f . 

si? 



00041b 
000420 
000422 
000424 
00042b 
0004 30 

0004 32 



000440 
000442 
0004 44 
000464 



0004 /4 
0004 76 



0001)00 
000512 



000 Mo 
00O'»20 
OC J!. 22 



003404 
000 A 52 



000414 000646 



000560 
000560 
000356 
000402 
00064b 
000346 

123 



004001' 
000464' 
002762' 



104 



00066b 



103 



004562' 
000512' 



0006^6 ' 
102 



002 7rj t " 000614 
125 104 



000620* 
10b 



01,'M'- 
0005 V 

0027b, 00*i-'6 t ' 
131 116 



002' '0 
OQO 



SEQ 0010 



jMENU STRUCTURES 
! WORD 
{ WORD 1 
5 WORD 
! WORD 
: BYTE 



ADDRESS 



OF 

or 
or 

FUNCTION 



ADDRESS 

S'-N! 



ADORES^ 



ASCII STRING OF MENU 
LEGAL CHARACTER COMMANDS 
DEFAULT FUNCTION 
ADORESSES IN ORDER 



NULL TRAILED LEGAL CHARACTORS 



{MAIN MENU 
MAINM: .WORD 
.WORD 



{VER2 
;VER2 
jVtR2 



jVER2 
M.CHRS: 



. WORD 

. WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

M.CHRS 

.ASCI/ 

.EVEN 



*MENU 
M.CHRS 

M.E 

M.F 

M.C 

M.U 

M.S 

M.D 

Rfc'PLOT 

M.H 

M.E 

ERROR 

.ASCI/ 

/SDRHFV 



{ASCII STRING FOR 

{ADDRESS OF LEGAL 
5 FUNCTIONS 



MAIN MENU 
COMMANDS 



{DEFAULT EXIT 
{CREATE SYS CONFIG F i 
{COPr TO ROM FROM SIS 
{UPDATE SYS MEMORIES, 
{UPDATE SYS HAHDWARf 
{PRINT SYSTEM DESCRIPTION 
{REDISPLAY MENU 
{HELP 
( F X I T 
;N0 MATCH 
/FCUSDRHE/ 



E FROM ROM 
CONFIG F II. t. 
PERIPHERALS 



{UPDATE HARDWARE MENU 
HARDMj .WORD tHMENU 

.WORD 

.WORD 

MS.CHR; 

.EVEN 



MS.CHR 

lX[T,MS.C,M5.U,MS.D,MS.5,MS.M,EXIT,ERRl 

.ASCI/ /CUFJSHR/ 



HEl PM: 

JVER2 
{VER2 



.EVEN 



.WORD 

.WORD 

.WORD 

MH.CHR 

.WORD 

MH.CHR 



$HEl P 

MH.CHR 

EXIT. HMSG 1 , HMS(i.\ HMSG < , HM5G4 , HMSG5 , HMSG6 , ERROR 

.ASCI/ /F CUSOF • 

EXIT. HMSG4 , HMSG5 , HMSGb , E RROR 

.ASCI/ /SOE/ 



IVER2UPDP: 
{VER2 .WORD 
}VER2 .WORD 
iVf R2MU.CHR: 
.EVEN 



[VER25UREMU: 
[VFR2 .WORD 
jVER2 
{VEH2 



.WORD IMOHP 
MJ.CHR 

EXIT .1 UP. NOPE, ERROR 
.ASCI/ /MP/ 



tSURE 



{UPDATE NEMORi OR PERIPHERALS 



.WORD 

rN 
. W09D NOPt , i UP . NOPE , F RROR 
j USES SAME CHARACTERS AS YORN 



j "ARE 1UU SURE ?" 



tORN: 



>N: 
,tVUN 



.WORD HvA'iK 

.WORD YN 

. WORD i UP . I UP , NUPtl , ERROR 

.ASCII /YN/ 



{PRINT ON HARD CUPt > 



I 1 

FAHOM HI. -UR Ulll IT 1 ! MACRO Ml?0O 10 APR 84 10:.W PAUt 111 

SEQ 0011 
INITIALIZATION COO* 

3 18 00OS3h 004 .Vt>' UMLNU: .WORD *tMfcNU 

SW 00OS4O 000SS4 .t'OHD RWt 

.VO OOOM^ 002 -VC 005.'/ 6" 0031/0 .LORD NOPt .WrURUM.LtAVt , NUPE , tRROR 

:'■.-.' 1 000bb4 127 10b 1^ RWfci .ASCI/ /WER/ 
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il 



INITIALIZATION CODE 
3 4 '4 
3*?6 

3 j : 
:v8 
3 J** 
330 
331 
.VV 
333 
334 
33S 
33t> 
33" 
338 
339 
340 
34 1 
34^ 
34 3 
344 
34 S 
34 h 
34 ■ 
34 f 

34 9 
3S0 

•V.l 
3N' 
3 r >S 
3S4 
3SS 
3Vi 

35 ■' 
3S8 
3S9 



3^0 
3t>l 
3»V 
3M 
3*4 
3*>S 
3*6 
3*>/ 

3*K 

3v« 
3/0 
3/1 
3.'/ 
3/3 
?. .'4 
3 'S 
3 /', 

/ r ■ 

.3 ' y 
/ ' ♦ 



OOOS^O 
OCGSM 
O0OS*.S 

ooos /o 

000S/4 



000,00 
000*04 
000* 1 o 
GOO*. 14 
000» .'0 
000oc'4 
OL'Oto 50 
000* 3* 
000*4 t J 
000*44 



01c? /OS 

01^0^ 

Ouuo; 

004 /ft 7 
000 / ,* 3 



OOOS 76 000 t J 0,' 



Of.^/01 
06^ #01 
Of. J 701 
O*ur?/0l 
Ot.^r'ul 
0* ( '/01 

004 /♦, / 
0013." 

OO'VO ' 



000/00 
OOObOO 



1 / / vs 

1 / /rv / 
l : m 34 
1-V4i. 

I .*.'*S1 

01. ■<»*'. 
001MV 



SEQ 001* 



FUNUIONS 



FROM MAIN MENU 

VER*?M.F : 
VLRc? MOV 
VER2 BR 
VFRPM.C: 
VER2 MOV 
VERi? BR 
VER^ 

VER2M.FERR: 
VER2FILC0M; 
VER2 MOV 



VER2 

VER2 

VERr* 

VERc? 

VER2 

VER2 

VER2 

VER2 

VER2 

VER2 

VEP2 

VER? 

VER? 

VER2 

VER2 

VER<? 

VER.? 

VER* 1 

VER<?98$: 

VER^99$ : 

Vb Re? 1001: 



JSR 
BEU 
JSR 
BCS 

.TyPMSG 
. TYPMSG 
MOV 
JSR 
BCS 
MOV 
MOV 
JSR 
MOV 

,T>PMSG 
ISR 
BR 



M.D: 
10$: 



100$: 

;MAIN 

HMS01 
KiSbJ 

hmsg* 

HM- ;,4 

MMsOS 

HH-. ,* 



Me 



000* 4 * 1 c ' •' (V ooos v. 



H.t 



MOV 
MOV 
SI 
isR 
BR 

RTS 

N'j ME I 
400 

ADO 
400 

ADD 
ADO 
AfM) 

. 1 -PM', 
' U 

p * 



MOV 4DUMP,-(SP) 

CWRITE, -CSP1 

FILCOM 

MOV 4L0AD, (SP) 

*read, c s; j 1 

riLCCM 



;LOAO ElL.h TO XXOP MEDIUM FROM ROM 
{WRITE ROM FROM XXDP MEDIUM 



. TYPMSG «BADF'Il. 

OGETEIL.RO 

PC.GETCOM 

98$ 

PC.CHKUL 

M.FERR 

(SP)* 
4INS1R 
*SUREHU,R2 
PC. MENU 
99$ 

(SP).RO 
R4 , C SP ) 
PC, (RO) 
(SP")* ,R4 

PC.RETCOM 
100$ 



TST 

T'JI 
RTS 



( SP). 
< >P)» 

PC 



oMsTAH.RS 

1 00 $ 
PC.DESCRP 

10$ 



* « NC t i ON 

^$M',G1 IMuu'.Rl 
$HSG3.M1 
IMSG4.R1 
*HSUS.«: 
$MSi>*,Wl 



c •riSG.* 
J$M' > i,^ 

#*Mvi4 

JSMMiS 
3IM 1 (,» 
WJ 

pc .Re * 

;u$ 



4 *» 



om 



{COMMON READ/WRITE CODE 



{EXIT ON DEFAU1 T 
{RETURN CS IE FAIL 



{ -READ" OR "WRITE" 
FILE NAME 
ASK "ARE YOU SURE?" 

NO, FIX STACK FOR RETURN 

RECOVER FUNCTION (DON'T POP ) 

THE ONLY REAl.l Y IMPORTANT REGISTER 

DO THE R£AD OR WRITP 

NOW DO THE POP 

LOAD AND DUMP RETURN STRINGS TO PRINT IN RO 



i.VA'j ;.; „i Th 
; TO PklNT 



AUDHt'ij 0»- He l>» MtS l =AUt 



:» 



M -Hi 



>\U 






tPJ 



l.**;n 



f*\HO*-: p.i v.*! w ■.':;: :m muck--- mi. -or ;o i^*h hs io:* : * Ph;,? ;,- 

SfcCi 0015 

INITT'M I//UTON COOf 

jm ooo^s/ 1 co4 .> * : "«; iv . .k *•■:."♦ v ■ 

? h t * ooot> ~>t» low o. r : . : " ." j 

3t* ^ ooot.*>o ooo !»■; oo^o v ^ ; *:* ;** T - » , *.. ■ t •:*•■►■. .,***•* 

3M 000*^4 OtKVO? I''>t: fc* ; - ^C ; I* R »r7'ft»* '0 **K- 

?rt * 000' .f>f' " 

?yy coo* «'-•».• *• ■! B: 

SH'i ooof-f.^ v> . v*. oooo*o Ml '. 1 .: -i\ *•• .' ■«« -<~«j m :;>' ;«■ :j£ o>*vfet ;mc t4SC^»*i<** i.^^ 

? k V 000'.* 011*0.- . M .. , Lfcif .-. 

393 U007CO 00074 >' 0CU07»r 00115*?* SlbTAB: .wo«& C**Jjt .06**C* .SOtC* .StaiOf .<d 
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INITIALIZATION CODE 



^ 



SEQ 0014 



3*5 
3*6 

3S7 
J^M 
309 
400 

401 
402 
405 
404 
405 
406 
40' 
40S 
40* 
410 
411 
412 
41? 
414 
•115 
416 
41 ' 
4m 
41^ 
420 
421 
422 
4 J"? 

4 V ;4 

42 c > 

426 
42' 

4 ;»h 

42* 

4^0 
451 

4 32 
43* 
4.34 
435 

4 36 
45? 
438 

4 5** 
440 
441 

442 
44^ 
444 
44 S 
44*. 
44 ' 
448 
44 * 
4 SO 
4SI 



000 712 

000712 
000 714 
000^16 
000720 

000724 
000724 
000 726 
OCC 730 
000 732 
000 734 



001570 
001646 
0017 72 
002002 
002100 



002144 
002212 
002314 
002334 
002352 



j INPUT AND OUTPUT MAPPING ROUTINES FOR DISPLAYING AND MODIFYING DATA 
OUTMAPt 



INMAPt 



lOUTPUT 


MAPPING 


ROUTINES 


.WORD 


OTYPO 


j TYPE 


.WORD 


0TYP2 


I TYPE 2 


.WORD 


0TYP4 


1 TYPE 4 


.WORD 


0TYP6 


jTYPE 6 


.WORD 


0TYP10 


iTYPE 10 


j INPUT 


MAPPING 


ROUTINES 


.WORD 


ITYPO 


j TYPE 


.WORD 


ITYP2 


jTyPE 2 


.WORD 


ITYP4 


iTYPE 4 


.WORD 


IT>P6 


tTYPE 6 


.WORD 


ITYP10 


jPRINT T 



BIT INFORMATION, <• N <- 
PRINT DECIMAL NUMBER IN R3 
8 BIT OCTAL 
16 BIT OCTAL 
■ GET TWO ASCII CHARACTERS 



BIT INFORMATION, <■ N '■ 
PRINT DECIMAL NUMBER IN R3 
8 BIT OCTAL 
16 BIT OCTAl 
) ASCII CHARACTERS 



; 



THESE ARE THE DESCRIPTOR TABLES. THE FORMAT IS AS FOLLOW':.: 

IT CONSISTS OF HEADER INFORMATION AND 8 BITES FIELD DESCRIPTORS. THE 

FIELD DESCRIPTORS DIFFER DEPENDING ON THF TYPE OF INFORMATION THEY 

ACCESS, BUT THEY MUST BE 8 BYTES LONG. 



000^36 



BYTE 0: 
BYTE It 
WORD 1: 
WORO 2: 

WORD N: 
WORD N» 



BYTE N»4 
BuTF N»5 

BYTE N*6 
BtTE N. / 

BYTE N.4 
BYTE N*5 
BYTE N»6 

byte u*? 

BWE N*4 
BYTE N»5 
BYTE N.6 
BrTE N* / 

BiTE N»4 
8f Tf N»5 
BYTE N»6 
n f TE N»? 

BtTE N>4 
By TE N.5 

BtTF N»6 
hi IE N> / 



ALIGN2 



NUMBER OF LINES IN TABLE 
WIDTH OF TABLE HEADER 
ASCI/ TABLE NAME 
HEADER ASCII STRING 



FIELD 



PROMPT FOR INPUT OF FOLLOWING 
: ADDRESS IN UPDATE OF BYTE 
THESE LAST FOUR BYTES VARY DEPENDING ON 

TYPE - BIT FIELDS 

(DATA TYPE OFFSET INTO I/O FUNCTION 

MASK THE INTERESTING BUS 

BITS TO SHIFT TO REACH THE MASK 

UNUSED 

TYPE 2 DECIMAL INPUT 

2 (DATA TYPE OFFSET INTO 

NUMBER OF BYTES TO PRINT 

MAXIMUM VALUE 

LENGTH PER ENTRi 

TyPE 4 INPUT OCTAL BtTE 

4 (DATA TYPE OFFSET INTO 



THE FIELD TyPE 



TABLES) 



I/O FUNCTION TABLES) 



I'O 



FUNCTION TABIES) 
TN TO FIRST DIGIT) 



2 (NUMBER OF BITS TO ROTATE 

UNUSED 

UNUSED 

TYPE 6 - INPUT OCTAL WORD 

6 (DATA TYPE OFFSET INTO I/O FUNCTION TAEHES^ 

1 (NUMBER OF BITS TO ROTATE IN TO FIRST DIGIT) 

UNUSED 

UNUSED 



INPUT ASCII STRING 



TYPE 10 

10 (DATA TyPE OFF SE T INTO 

MAXIMUM NUMBER OF CHARS 

UNUSEO 

UNUSID 



I/O FUNCTION TABLES) 



j SET ON RIGHT BUUNDRi 



F.ARCIM BLASTER UTILITY 
INITIALIZATION CODE 



45? 






453 


00074? 


001 


454 


000744 


005077' 


455 


000746 


005131' 


456 






457 


000 750 


006353' 


458 


00075? 


OOOOOOG 


459 


000754 


000 


460 






461 


000760 


006451 


46? 


00076? 


00000 1G 


4rv3 


000764 


000 


464 






465 


0007 ;o 


00654 7 


466 


C0O77? 


00000 1G 


46? 


000774 


000 


4ts8 






469 


001000 


006645' 


470 


001002 


000001G 


471 


001004 


000 


47? 






473 


001010 


006743* 


4 74 


001012 


00000 1G 


475 


001014 


000 


4 76 






47 7 


0010?0 


00 7041' 


4 78 


001022 


OOOOOOG 


4 79 


001024 


000 


480 






481 


001030 


007137* 


482 


001032 


OOOOOOG 


483 


001034 


000 


484 






485 


001040 


007235' 


486 


00104? 


OOOOOOG 


487 


001044 


000 


463 






489 


001050 


007333' 


490 


001052 


OOOOOOG 


491 


001054 


000 


49? 






493 


001060 


007431' 


494 


001062 


00000 3G 


495 


001064 


000 


49r. 






4 9.* 


001070 


000000 


498 






499 


00107? 


001 


500 


001074 


00546 7* 


501 


001076 


005521' 


50? 






503 


001100 


006 HO- 


504 


001102 


000002c; 


505 


001104 


ooc 


506 






50 7 


ooi no 


006? 1 1 ' 


•joa 


Q0U1? 


0Q0QQ2G 
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107 



Cr 



SEQ 0015 



100 



300 



060 



007 



010 



002 



020 



040 



014 



001 



026 



006 



006 



004 



000 



003 



001 



004 



005 



002 



000 



100 



006 



cpuoT{ .em 


1,71. 






.WORD 


CPUTIT 






.WORD 


CPUDES 


j TEX*' LENGTH, HEADING 


.WORD 


CPUPO 






.WORD 


UPDATE »0 






.BYTE 


0.BIT6.6 




l IGNORE BATTERY ST 


.EVEN 








.WORD 


cpupi 






.WORD 


UPDATE »1 






.BYTE 


0,BIT^!BIT6,6 




{POWER UP MODE 


.EVEN 








.WORD 


CPUP2 






.WORD 


UPDATE*! 






.BYTE 


0,BIT5!BIT4,4 




jREBOOT MODE 


.EVEN 








.WORD 


CPUP3 






.WORD 


UPDATE *1 






.BYTE 


O.BIT2!BIU!BITC 


',0 


j MASTER BUS GRANT 


.EVEN 








.WORD 


CPUP4 






.WORD 


UPDATE* I 






.BtTE 


0,BIT3,3 




jHALT/TRAP OPTION 


.EVEN 








.WORD 


CPUP5 






.WORD 


UPDATE *C 






.BtTF 


O.BITl.i 




j HALT ON BREAK 


.EVEN 








.WORD 


CPUP6 






.WORD 


UPDATED 






.BYTE 


0,BIT4,4 




IlINE CLOCK STATUS 


.EVEN 








.WORD 


CPUP7 






.WORD 


UPDATE .0 






.BYTE 


0.BIT5.5 




j LINE CLOCK INTERR 


.EVEN 








.WORD 


CPUP8 






.WORD 


UPDATED 






.BITE 


0,BIT3»BITc\2 




jLINE CLOCK SOURCE 


.EVEN 








.WORO 


CP1.1P9 






.WORD 


UPDATf ♦'. 






.BiTfc 


o.bito.o 




j MA IN MEMORt TEST 


.EVEN 








.WORD 









UBADTj .BiTE 


I,??. 






.WORD 


UBAT IT 


l TABU l 


HEADER 


.WORD 


UBADE 5 






.WORD 


UBAPO 


jUNlBUS 


CACHI 


.WORD 


UPDATE*? 






.BtTF 


0,BIT6,6 






J VtN 








.WORD 


UBAP1 


tia un 


MODE 


• WORD 


UPDATE*? 
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INITIAL 1/-UI0N CODE 



IV 



so«* 


001U4 


000 


MO 






511 


001120 


006272' 


512 


001122 


000004G 


515 


001124 


000 


514 






515 






51b 


001.30 


000000 


517 






518 


001132 


Oil 


519 


001134 


005634' 


520 


0011 3b 


00567 7' 


521 






522 


001140 


00 752?' 


523 


001142 


000000 


524 


001144 


002 


526 


001150 


007601* 


52? 


001152 


000036G 


528 


001154 


010 


529 






550 


001160 


00 7654' 


551 


001162 


00004 OG 


532 


001164 


004 


533 






534 


001170 


007727' 


535 


001172 


00004 1G 


536 


001174 


004 


537 






538 


001200 


010002' 


539 


001202 


00004 2G 


540 


001204 


006 


541 






542 


001210 


000006 


54 3 






544 


001212 


006 


545 


001214 


006016* 


546 


001216 


006051* 


54? 






54 8 


001220 


010055 


549 


001222 


000000 


550 


001224 


002 


551 






552 


001230 


007601* 


553 


001232 


000124G 


554 


001234 


010 


556 


001240 


00/727' 


55 ■> 


001242 


000126G 


558 


001244 


004 


559 






560 


001250 


000003 



040 



00, 



045 



005 



001 



BOTDTi 



004 



002 



002 



002 



001 



024 



Oil 



000 



000 



000 



000 



SWIDT; 



002 



002 



002 



006 



000 



000 



.BtTb 
.EVEN 
.WORD 
.WORD 
.BYTE 
.EVEN 


0.BIT5.5 

UBAP2 
UPDATE »4 
0»BIT1,1 


.WORD 





,BtTC 

.WORD 

.WORD 


9, .37. 

BOTTIT 

B0TDE5 


.WORD 
.WORD 
.BYTE 


BOTPO 



2,4,11,6 


.WORD 
.WORD 
.BYTE 


B0TP1 
UPDATE* 36 
10.2,0,0 


.WORD 

WORD 

.BYTE 


B0TP2 
UPDATE '40 
4,2,0,0 


.WCRD 
.W09D 
.BYTE 


B0TP3 

UPDATE*41 

4.2.0.0 


.WORD 
. WORD 
.BYTE 


B0TP4 

UPDAi^»42 

6.1.0,0 


.WORD 


6 


.BUE 

.WORD 
.WORD 


6.20. 
5WIT n 

swims 


.WORD 
.WORD 
.BITE 


SWIPO 



2,2.6,3 


.WORD 

.WORD 

.byte 


BOTPt 

UPDATE »124 
10, 2,0,0 


.WORD 
.WORD 
.Bill 


BimM 

UPOAU >126 
4,2,0,0 



SEQ 0016 



lUNIBUS MEMORY TEST 



I END OF TABLE 



iDON'T CARE ABOUT ADDRESS FOR TfPF. 2 

I DEVICE MNEMONIC 
I MAKE IT 8 BYTES 
jPHYSICAl. UNIT 

I LOGICAL UNIT NUMBER 

iCSP 

jEND 0*- TABLE 



I SWITCH NUMBER TO MUD IF t 



iNEW DEVICE MNEMONIC 



jLOGICAL UNIT NUMBER 



.WORD 



CAROM BlAsUR UTH lit MACRO M1200 10-APR-64 10:59 PAGE 1*1 
INITIAL 1/ATION CODE 



1:2 



SEQ 0017 



562 
563 

5t>4 
565 

566 
567 
568 
569 
570 
571 
572 
575 
5 74 
5/5 
576 
5/7 
578 
579 
580 
581 
582 
583 
584 
585 
586 
58 7 
588 
589 
590 
59V 
59? 
593 
594 
595 
596 
597 
598 
599 
600 
601 
60? 
605 
604 
605 
606 
607 
608 
609 
610 
611 
61? 
613 
M4 
MS 
M6 
'.1.' 
C18 



iMAIN ROUTINES TO DISPLAY AND UPDATE A SET OF DATA 



001252 
001254 
001260 

001264 
001266 

0012 70 
001274 
001276 
001302 
001304 
001306 
001312 
001314 
001316 
001320 
001322 
001326 
001330 
001332 
001556 
001340 
001344 
001346 
001356 

001360 
001362 
001366 
001572 



001374 
0013 76 
001400 
001402 
001404 
001412 
001416 
001420 
001424 
001426 
001434 
001440 

001446 

001450 
001454 
001456 



010246 

004 76 7 
00506 7 

011602 
005742 



012200 
032700 
001426 
010246 
004 767 
012602 
005700 
001410 
012203 
066703 
112201 
010546 
u04 771 
012605 
042 702 
103351 

000 746 

012602 
004 767 

000000 



010546 
112205 
112200 
010046 

012701 
011600 
004 76 7 
077003 

012/01 
012767 

011600 

004 /6 7 
07 7003 



000114 
000106 



000010 
177740 

001136 

000044 

000724 
000007 



000006 



000055 
001234 



000055 
000001 



001204 



17 7 724 



j UPDATE 


A SET Of 


■ OAT A 


iFRONf 


OF- THE DF.SCRIPTER TABLE I 


UPDRAMj 


MOV 


R2, -CSP) 




JSR 


PC.DESCRP 




CLR 


WHICH 




MOV 


(SP),R2 




TST 


-CR2) 


10$} 


ADD 


010, R2 


20$} 


MOV 


(R?)».RO 




BIT 


0177740, RO 




BEQ 


100$ 




MOV 


R2, CSP) 




JSR 


PC.GETCOM 




MOV 


(SP)».R2 




TST 


RO 




BEQ 


30$ 




MOV 


(R2)».R3 




ADD 


WHICH, R3 




MOVB 


(R2)* f Rl 




MOV 


R5, CSP) 




JbM 


HL.aiNMMHLHl) 




MOV 


(SP)>,R5 


30$; 


BIC 


07, R? 




8CC 


10$ 




. TYPMSG 


0ERR1N 




BR 


20$ 


100$: 


MOV 


(SP)».R2 




JSR 


PC.DESCRP 




JRS 


RETCOM 


WHICH: 


.WORD 




;^RINT 


OUT A DESCRIPTIVE HEADING 


{DESCRIPTOR POINTER IN R2 


DESCRP: 


MOV 


R5, CSP) 




MOVB 


( R2 ) * , R5 




MOVB 


C R2 ) ♦ , RO 




MOV 


RO . - ( SP ) 




. TiPMSG 


cr;m* 




MOV 


o- ,Rl 




MOV 


tSP),RO 


10$: 


JSR 


pc , r t i 




SOB 


R0.10* 




. TtPMSG 


(R2 >• 




MOV 


0' .Rl 




MOV 


01, WHICH 




MOV 


(SP).RO 


20$: 


JSR 


PC , T r t 




SOB 


R0,?0$ 




.TiPMSG 


flCRI F 



S PASSED IN R2 

{SAVE DESCRIPTOR TABLE POINTER 
{PRINT OUT CURRENT VALUES 
ilNIT TO FRONT OF TABLE 



I RESTORE POINTER 
|6 SHOULD BE ADDED 



THE 



FIRST TIME -• SUB 2 HERE 



{NEXT ENTRY, OVERLOOK HEADER THE FIRST TIME 

I OUTPUT PROMPT FOR INPUT 

j CHECK FOR END 

j EQUAL SIGNALS END 

{GET COMMAND 

j TEST FOR DEFAULT 

jSET UP INPUT ADDRESS 
jSET UP IN ITYP2 



jOO THIS TYPE OF INPUT 

{RESTORE R2 TO PREVIOUS ENTRt 
{GOOD RETURN, GET NEXT 
jBAD INPUT 
iTRt IT AGAIN 

jPRTNT OUT UPDATED TABLE AND RETURN 



j REPEAT COUNT 



{WIDTH 

{PRINT 



OF HEADER 
THE HEADER 



tCL USING 
{INITIALIZE 



WITH 01 



{PROCESS THE TABLES 



■ ') 



EAROM BLASTER UUl ITY 
INITIALIZATION CODE 
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620 
621 

622 
623 

o24 
625 

t>26 

*>2« 

630 
631 
63? 
t>33 

n34 

635 
63b 
63; 
638 
639 
640 
64 1 
u42 
643 
644 



001466 
0014 70 
001472 

001476 
001500 
001504 
001506 
001510 
001512 
001516 
001522 
001524 

001526 
001536 
001540 
001544 

001546 
001550 
001552 
001556 
001562 
001564 
001566 



010246 
005046 
016602 
011603 
03272? 
001410 
062203 
112200 
004 7 70 
052 r'02 
005202 
000764 



064216 
005267 
077526 

022626 
012600 
012701 
004 76 7 
07 7003 
012605 
000207 



SEQ 0018 



000002 
177740 



000712 
000007 



177626 



000055 
001076 





MOV 


R2. -(SP) 




CLR 


CSP) 


30$: 


MOV 


2(SP),R2 


40$: 


MOV 


CSP).R3 




BIT 


0177740, CR2)+ 




BEQ 


100$ 




ADD 


(R2)*,R3 




MOVB 


(R2)*,R0 




JSR 


PC.30UTMAPCR0) 




BIS 


01 . R2 




INC 


R2 




BR 


40$ 


100$: 


. TYPMSG 


OVCRLF 




ADD 


(R2),(SP) 




INC 


WHICH 




SOB 


R5,30$ 




CMP 


(SP)*.CSP)» 




MOV 


(SP)*,RO 




MOV 


*' -,Ri 


110$: 


JSR 


PC.TTY 




SOB 


MO.UO* 




MOV 


(SP)*.RD 




RTS 


PC 



jSAVE FRONT OF" DESCRIPTER COUNTER FOR REPEATS 

j INCREMENT TABLE POINTER 

{RESTORE DESCRIPTER POINTER 

jSET UP OFFSET INTO TABLE 

j THIS ENTRY IS EITHER EOT OR ASCII PROMPT 

jEOT - FINISH AND TRY NEXT 

{POINT INTO TABLE 



jPOINT TO NEXT ENTRY 



I OFFSET TO NEXT 

{NEXT IN NUMERIC ORDER 



jBUMP OFF TEMP Si GRACE 
{PRINT FINAL LINE 



001570 
001600 
00160c* 
001606 
001610 
001612 
001614 
001616 
0C1620 
001622 
001624 
001630 
001654 
001644 



001652 
001656 
001662 
001666 

001672 
001674 
001700 

001704 
001710 
001712 
001714 

001716 

001720 
001722 
001726 

001750 
001754 

001740 
001742 

001744 

001746 
001 750 
001 754 



111501 

042 701 

112200 

005100 

04000 1 

112200 

005100 

005200 

072100 

062701 

004767 

000207 



001646 0167D3 177520 



{ARUM i\i ASHR Hilt Ht 
INITIALIZATION CODE 



646 
6-4 7 

b48 
b49 

650 

651 

652 

b53 

654 

655 

656 

65/ 

656 

659 

6b0 

661 

662 

665 

664 

665 

666 

667 

6t0 

669 

6 70 

671 

6 72 

673 

6 74 

6 75 

676 

6/7 

676 

6 79 

680 

661 

682 

683 

o84 

685 

686 

68 7 
688 
689 
640 
b91 
692 
693 
694 
695 
696 

69 7 
698 
6^9 
700 
701 
V02 
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)r. 



SEQ 0019 



012701 
004 76 7 
012701 
004767 

111200 
062 700 
012746 

012701 
005201 
161005 
002375 

051601 
001003 
012701 
000402 

012716 

004 76 7 

061005 

005 740 
001357 

005/26 
012701 



177400 



000060 
001024 



000174 
0007 76 
000040 
000766 



001760 
000017 

00005/ 



000040 



177777 
000720 



001*60 OOOOCO 



OOOO-^O 
000001 



j SEPARATE ROUTINES TO HANDLE THE DIFFERENT FORMS THE DATA IS DISPLACED 
j AND ENTERED IN 

jPRINT ROUTINES 

sDATA TYPE THE OUTPUT WILL BE A SINGLE CHARACTER, <* X <» / 

;THE ADDRESS OF THE DATA IS IN R3, R2 POINTS AT BYTE 2 OF TH£ DATA DESCRIPTOR 



QTYPO: .TYPMSG 0LBL5 





MOVB 


CR3),R1 




BIC 


0177400. Rl 




MOVB 


(R2)*,R0 




COM 


RO 




BIC 


R0.R1 




MOVB 


(R2H.R0 




COM 


RO 




INC 


RO 




ASH 


R0.R1 




ADD 


00, Rl 




JSR 


PC.TTY 




.TYPMSG 


0BL4 




RTS 


Pf 


;OUTPUT 


A DECIMAL NUMBER 


0TYP2: 


MOV 


WHICH, R5 




MOV 


0' ).R1 




JSR 


PC, TTt 




MOV 


0' ,Rl 




JSR 


PC.TTY 




MOVB 


(R2),R0 




ADD 


ODECTAB.RO 




MOV 


017,-CSPI 


10$: 


MOV 


0-0 1.R1 


20$: 


INC 


Rl 




SUB 


(R0),R5 




BGE 


20$ 




Bir 


(SP),R1 




BNE 


30$ 




MOV 


«' ,R1 




BR 


40$ 


30$: 


MOV 


it 1 . ( SP ) 


40$: 


JSR 


PC. Hi 




ADD 


iPOI.RS 




1ST 


l RO ) 




BNE 


10$ 




TST 


(SP)» 




MJV 


0' ,ni 




JRS 


Tl » 



j LEADING 4 BLANKS 

{CLEAR POSSIBLE SIGN BITS 
{LOAD MASK BITS 



{SET UP NEGATIVF f'OR RIGHT SHIFT 
{SHIFT BITS TO RIGHT 

jPRINT THE NUMBER 

{TRAILING BLANKS 



{HERE IS A GENERAL OUTPUT DECIMAL FUNCTION 



! NUMBER OF HUES TO PRINT * 2 

{DECIMAL TABU 

{NO NON/fRO DIGITS PRINTED 



{BUII D A DIGIT 



{SUPPRESS LEADING OS 



\0 FILL INSTEAD OF BLANK 
{PRINT IT 

{RESTORE- EXTRA SUBTRACTION 
{GET NEXT LOWER POWER OF 10 
{IF NOT DONE . DO Nl xi DIGIT 

{lOSE TEMPORARi VARIABLE 
{TRAIL 1NG BLANK 



000012 QECTAB: .WORD 0. , 1 . . 10. . 100. , 1000. 

tOUIPUT 16 BIT OCTAL NUMBER 



U ) 



EAROM BlASHR UT It 111 MACRO M1200 10-APP 84 10:39 PAGE 15-1 
INITIALIZATION CODE 



SEQ 0020 



70? 

V04 
70S 
70b 
70.' 
708 
709 
710 
711 
712 
713 
714 
715 
716 
*.'17 
718 
71^ 
720 
■*21 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
7 32 
735 
7 34 
735 
7 36 
73,* 
738 
'/39 
740 
741 
742 
74 3 
744 
745 
746 
74 ' 
'.'48 
749 
7 SO 
751 



7S4 

7Vi 

/'•♦'. 
757 
*'5* 
75* 



001772 
001774 
001776 
002000 

002002 

002004 
002006 
002010 
002012 
002014 

002016 

002022 
002026 
002032 
002036 
002040 

002042 
002044 
002046 
002050 
002054 
002060 
002064 

002066 
002070 
002074 



002100 

002110 
002112 
002114 
002120 
002122 
002126 
002132 

002134 
002140 



005300 
111303 
000303 
000406 

005001 
152301 

000301 
151301 
010103 
000303 

012701 

004 767 
012701 
004 76 7 
112201 
010246 

005002 
073201 
010201 
052701 
004 767 
012701 
077012 

012602 
012701 



112200 
112301 
022 7 01 
002402 
012 701 
004 767 
077011 



000174 
000632 
000040 
000622 



000060 
000600 
000003 



000040 



000040 

000040 
C00526 



0127QQ 013173 



OTiP4 5 Dec 

MOVB 
SWAB 
BR 

OTYPbj CLR 
BISB 
SWAB 
BISB 

MOV 
SWAB 

OCTOUT: MOV 
JSR 

MOV 
JSR 
MOVB 
MOV 

10$: CLR 

ASHC 

MOV 

BIS 

JSR 

MOV 



MOV 
MOV 
JRS 

jPRINT ASCII 
OTYPlOj .TYPMSG 



10$ 



'0$ 



MOVB 

MOVB 

CMP 

BLT 

MOV 

JSR 

SOB 

MOV 
JRS 



RO 

(R3) 
R3 

OCTOUT 



R3 



j NUMBER OF CHARS IN RO 
;NUM IN R3 HIGH BYTE 



Rl 

(R3)*,Rl 

Rl 

CR3),R1 

R1.R3 

R3 

0' ),R1 
PC.TTY 
0» ,R1 
PC , T T Y 
(R2)*,R1 
R2.-CSP) 

R2 

R1.R2 

R2.R1 

<T 0.R1 

PC.TTY 

03. Rl 

R0»10$ 

(5P)>.R2 
V ,R1 
TTY 



0LBL5 
(R2)> ,R0 
(R3)» ,R1 
*' ,R1 

20$ 

O' t Rl 

PC.TTl 

R0,10$ 

<»Bi.4,P0 

TYPMSG 



jHOW MANY BITS IN FIRST DIGIT? 
I ASHC NEEDS R-EVEN, R ODD 

jNO STRAY BITS 

5SHUT HIGH THREE BITS INTO R2 

} PRINT IT 

j MAKE ASCII 

;SHIFT 3 ON SUBSEQUENT ATTEMPTS 



jRESTORE R2 TO TABLE 



j TWO CHARACTER! 



INPUT FUNCTIONS 
THE SE FUNCTIONS 



DO THE INPUT (■ UR 



THE DIFFERENT DATA MPES. IHt* ARE EMR-RED 
WITH R3 POINTING TO THE ADDRESS IN UPDATE Of THE LOCATION f OR THF NEW 9ATA 
I JHt INPUT HAS ALREADY BEEN REAJ IN IN GL TCOM, AND RO IS LEFT MOLDING 1 .t 
I NUMBER OE CHARACTERS IN THE ASCI? STRING IN INSTR, R2 POINTS TO BVTE 5 OK 
; 8 Bt TF FIELD OESCRIPTER. IK THE INPUT lb SUCCESSFUl THE FUNCTIONS SHOLH.O 
j RETURN C CLEAR AND R2 POINTING TO THE NEXT OESCRIPTER. U THE INPUT Is 



THE 



NOT CORRECT IT RETURNS C SET, AND R2 MUST Bf 
CURRENT OESCRIPTER THEY ARF H BYTE: ALIGNED 
TmE PI] INTER Stl IT CAN BE RtUStO. 



i INPUT SINGLE DIGIT OCTAL 



POINTING 
SO A BIG 



SOMt WHERE IN THE 
#?iW WILL RtSTORt 



12 



EAROM Bt ASTER UTtl.IT> MACRO M1200 10 -APR -84 10:39 PAGE 15-2 
INITIALIZATION CODE 



5EQ 0021 



7frO 


00/7144 


112201 




761 


002145 


042701 


I 7 7400 


762 


002152 


022 700 


000001 


76? 


002156 


103414 




7t>4 


002160 


111200 




765 


002162 


016 705 


C01162 


766 


002166 


001410 




76 7 


002170 


162705 


000060 


768 
769 

7 70 


002174 


103405 




0021 76 


72500 




771 


002200 


020105 




772 


002202 


103402 




7 75 


002204 


140113 




7 :a 


002206 


150513 




7 75 
7 7b 


002210 


000207 




T 78 


002212 


012700 


003350 


7 7w 


002216 


005005 




780 


002220 


005003 




781 








?&2 


002222 


112001 




78 3 


002224 


001415 




784 


002226 


162 701 


000060 


785 


002232 


10342 7 




786 


002254 


022 701 


000011 


78 7 


002240 


103424 




788 


002242 


006305 




789 


002244 


006 305 




790 


002246 


060305 




791 


002250 


006305 




792 


002252 


060105 




793 


002254 


010503 




: ) 
795 

796 


002256 


000761 




002260 


005202 




79 7 


C02262 


122205 




798 


002264 


103412 




799 


002266 


02052 7 


000001 


800 


002272 


103407 




801 








80? 


0022 74 


111200 




803 


002276 


160001 




804 


002300 


060001 




80 c > 


002 302 


07 750? 




806 


00? ',04 


010167 


17 706? 


80 7 


002310 


00024 1 




' OH 


00231? 


00020 7 




,09 








810 








Mil 


002 314 


004 76 7 


000054 


81.' 


U0?3?0 


103404 




HI 3 


002 32? 


022 705 


0003 7 7 


h!4 


00? '.26 


10'401 




«!', 


002 330 


110513 




816 


00233? 


00020 7 





inPO: 


MOVB 


(R2V.R1 




RIC 


#177400, Rl 




CMP 


01. RO 




BCS 


100$ 




MOVB 


(R2),R0 




MOV 


INSTR.R5 




BEQ 


100$ 




SUB 


0' 0.R5 




BCS 


100$ 




ASH 


RO.k'S 




CMP 


R1.R5 




BCS 


100$ 




BICB 


Ri,(R3) 




BISB 


R5.CR3) 


100$: 


RTS 


PC 


{GET A 


DECIMAL 


NUMBER AND LOAD 


ITYP2: 


MOV 


#INSTR,RO 




CLR 


R5 




CLR 


R3 


10$: 


MOVB 


(.10)* ,R1 




BEQ 


98$ 




sue 


#'0,R1 




BCS 


100$ 




CMP 


#11. Rl 




BCS 


100$ 




ASL 


R5 




ASL 


R5 




ADD 


R3.R5 




ASL 


R5 




ADO 


R1.R5 




MOV 


R5.R3 




BR 


10$ 


98$: 


INC 


R2 




CMPB 


(R2)».R5 




BCS 


100$ 




CMP 


R5,#i 




BCS 


100$ 




MOVB 


( R2 ) . RO 




SUB 


R0.R1 


99$: 


ADD 


R0.R1 




SOB 


R5,99$ 




MOV 


Ri.WHICH 




CIC 




100$: 


RTS 


PC 


jINPUl 


AN OCTAL 


Hill. 


1T1P4: 


JSR 


pc.octin 




BCS 


100$ 




CMP 


#3 7 7.R5 




BCS 


100< 




MOVB 


R5,(R3) 


100$; 


RTS 


PC 



{HOLDS BIT MASK 

jCLEAR POSSIBLE SIGN BITS 



(HOLDS SHIFT 

{RETURN GUUD UN DEFAULT (C BIT CLEAR FROM CMP) 



{CHECK FOR LEGALITY 

{CLEAR THE BITS 
{SET THE BITS 



WHICH WITH THE OFFSET FOR THE DESIRED ENTRY 

l LOAD VALUE IN HERE 

{USE FOR *10 MULTIPLICATION 

{EXAMINE NEXT DIGIT 



{ISOLATE BITS, CHECK FOR RANGE 



{MULTIPLY BY 10, 2X 

;4X 
}5X 

; iox 
llOXo 



{BUMP PAST IHTFii TO PRINT 
i CHECK RANGE 

{NO Ai '.OWED 



sHUIl IHE OFFSET 
|R1 IS 



{i oao i t 

: NEEDED IF INPUT - i 



I HEAD I HI NUMHtH 
;Rf U'RN V EAIl URl 
j TOO I ARGl .' 
I '* S. Rl TURN > All uRl 
jt DAD 1 T IN Ml M0R> 



J2 



earum m aster urn. in 

INITIALISATION CODE 



MACRO M120O 10-APR-84 10:39 PAGE 1S-3 



81": 

HIS 

819 002334 004 767 

820 002540 105403 

821 002342 110523 
8JV 002344 000305 

823 00c: 346 110513 

824 002350 000207 

826 

82/ 002352 121200 

828 002354 103406 

829 002356 012/01 

830 002362 112200 

831 002364 112123 

832 002366 001401 

833 002370 077003 

834 002372 000207 
835 

836 002374 005005 

837 002376 012 700 

838 002402 112001 

839 002404 001416 

840 002406 162701 

841 002412 105413 

842 002414 022/01 

843 002420 103410 
844 

845 002422 006305 

846 002424 103406 
84/ 002426 006305 

848 002430 1C3404 

849 002432 006305 

850 002434 103402 

851 0024 36 050105 

852 002440 000760 
853 

854 002442 000207 



000034 



; INPUT AN OCTAL UORD 



003350 



003350 

000060 
000007 



mP6j 


JSR 


PC, OCTIN 




BCS 


100$ 




MOVB 


R5.(R3)> 




SWAB 


R5 




MOVB 


R5.CR3) 


100$: 


RTS 


PC 


; ASCI I 


CHARACTERS 


ITYP10 


CMPB 


(R2).R0 




BCS 


100$ 




MOV 


4INSTR.R1 




MOVB 


(R2)»,R0 


10$: 


MOVB 


(Rl)*,(R3)» 




BEQ 


100$ 




SOB 


R0,10$ 


100$: 


RTS 


PC 


OCTIN: 


CLR 


R5 




MOV 


4INSTR.R0 


10$: 


MOVB 


(ROn.Rl 




BEQ 


100$ 




sue 


0.R1 




BCS 


100$ 




CMP 


of.R} 




BCS 


100$ 




ASL 


R5 




ncs 


100$ 




ASL 


R5 




BCS 


100$ 




ASL 


R i 




BCS 


100$ 




BIS 


■::,HS 




BR 


10$ 



SEQ 0022 



100$: 



RT 



PC 



;SAVE LOW BYTE 
{SAVE HIGH BYTE 

j SET C BIT r J GREATLR 

; INPUT STRING 
iCOPY THIS MAN/ 
iCOPi INPUT 
j QUIT ON NULL 



jUSE R5 EOR RESULT 
tPOINT TO INPUT STRING 

GET NEXT CHARACTER 

V 0, DONE 

St T C BIT H LESS THAN *0 

RfcTuRN f'AIl URE 

COMPARE WILL SET C BIT IE DIGIT > / 
I RE TURN FAH [jfit 

i MULTIPLY BY 8 ANO ADO IN NL W DIGIT 

}1E MORE THAN lb BITS ARE ENTERED. RETURN C SET 



j ADD CURRENT DIGIT 
j DO Nf xT 

j DONE, C BIT HOLDS SUCCESS CODE 



I<2 



tARUN BtAMER UTlt m MACRO M1200 10 -APR 84 10;3^ PAGF. lb 



1NITIAI I/ATION CODE 



SEQ 0023 



85b 








85/ 








858 








859 








860 








861 








862 


002444 


012700 


012442' 


8t>3 


002450 






864 


002454 


012702 


000020 


865 


002460 


012/00 


005350' 


866 


002464 


005010 




867 


002466 


105010 




868 


0024 70 


004 767 


000200 


864 


0024 74 


005/01 




8/0 


0024V 6 


002773 




871 








8 72 


002500 


120127 


000177 


8/3 


002504 


001016 




8/4 


002506 


022700 


003350' 


875 


002512 


001765 




8/6 


002514 


105704 




877 


002516 


100402 




8/8 


002520 


004 76 7 


000130 


879 


002524 


114001 




880 


002526 


004767 


000126 


881 


002b 52 


052/04 


000200 


832 


002556 


005202 




885 


002540 


000752 




884 








885 


002542 


105704 




886 


002544 


100006 




887 


002546 


042704 


000200 


888 


002552 


010146 




884 


002554 


004767 


000074 


840 


002560 


012601 




891 


002562 


120127 


000101 


892 


002566 


0C2402 




895 


002570 


042701 


000040 


894 


002574 


004 767 


000060 


895 








896 


002600 


12012/ 


000012 


89/ 


002604 


001730 




898 








694 


002606 


02012/ 


000015 


500 


002612 


001405 




901 








902 


002614 


110120 




905 


002616 


/ /255 




404 


002620 


012/00 


012642' 


905 


002624 


000711 




906 








40 / 


002626 


162/00 


005 550* 


408 


002652 


00020/ 




409 








410 








■ni 


002*. 54 


004 /?.: 


000034 


91.' 


002640 


112001 





MAIN TERMINAL I/O ROUTINES 

PUT A COMMANO STRING INTO INBUF, RETURN C SET IF NO CHARACTERS ENTERED 
USES RO, Rl. R2 

RETURNS NUMBER OK CHARACTERS ENTERED, NOT INCLUDING TRAILING NULL, IN RO 
(AND / SET IF NO CHARS ARE ENTERED) 



RETCOM: MOV 0RETMSG.RO 
GETCOM; . T>PMSG 





MOV 


420, R2 




MOV' 


4INSTR.R0 




CLR 


(RO) 


10$: 


CLRB 


(RO) 




JSR 


PC . XCHK 




TST 


Rl 




BLT 


10$ 




CMPB 


R1.4DEL 




BNE 


20$ 




CMP 


0INSTR.RO 




BEQ 


10$ 




TSTB 


R4 




BMI 


15$ 




JSR 


PC.SLASH 


15$; 


MOVB 


(HO).Rl 




JSR 


PC.TTt 




BIS 


4BIT7.R4 




INC 


R2 




BR 


10$ 


20$: 


TSTB 


R4 




BPL 


30$ 




BIC 


OB IT/, R4 




MOV 


Rl. (SP) 




JSR 


PC . SI ASH 




MOV 


(5P)*.R1 


30$; 


CMPB 


Rl,** A 




BLT 


40$ 




BIC 


4HII5.R1 


40$: 


JSR 


PC. Hi 




CMPB 


R1,*L 




BEQ 


10$ 




CMP 


R 1 . «C 




BEQ 


94$ 




MOVB 


m ,<ro). 




SOB 


R2,10$ 




MOV 


i> TOOL NG.RO 




BR 


Gf TCOM 


99 $ : 


SUB 


»r nstr.ro 




RTS 


PC 



♦FREQUENTLY USED MESSAGE 
{OUTPUT A MESSAGE 
{BUFFER LENGTH 

jMAKE SURE WHOLE FIRST WORD IS NULl 

{NULL TRAILER 

j GET CHAR IN Rl, HANDLE XON/XOFF, tc 



{IS CHARACTER A DELETE? 

j IF NOT, PROCEED 

{ANY CHARACTERS IN BUFFER? 

jNO, GET THE NEXT CHAR 

j IS THIS THE FIRST DELETE? 

;N0, DON' T PRINT St ASH 

jREECHO DELETED CHARACTER, DEC POINTER 

{MARK DELETE STATE 

{FIX BUFFER LENGTH POINTER 



jWAS PREVIOUS CHAR A DELETE? 
; IF NO. BRANCH 
I SIGNAL ^ IN1SHED 
{END OF DELETE. 



{FORCE CAPITALIZATION 
{ECHO CHARACTER 

;IINE FEED - IGNORE 

{CARRIAGE RETURN 



jSTO»U CHARACTER 

{OTHERWISE, GET NEXT 



. RETURN NUMBER OF CHARACTERS 



;PUT A MtS5AGE IN RO OUT TO TERMINAL. USES RO AND Rl 
TlPMSG: JSR PC.MtHK 
MOVB (R0)».R1 



-- c 



E-'ARllM Rl /V»n.R UTll in 
INITIAL 1/A1 ION COOt 



MACRO Ml^OG 10 -APR -84 10:39 PAGE lb - 1 



SEQ QQ24 



913 00 < > 04 t > 
*U4 002644 
^if» 00?bSO 
910 0026S2 



00140? 
004 76 ; 

ooo r : i 

000207 



000010 



10$ 



Hf:a 


10$ 


JSR 


PC.TT i 


BR 


TYPMbG 


RTS 


PC 



EAROM HI ASM. H UUl.lTi MACRO M1200 10 -APR -84 10:39 PAGE 1/ 
INITIAL I /AT ION CODE 



M2 



SEQ 0025 



918 








919 








920 








9.n 
922 

923 


002654 


112701 


000057 








924 


002660 


105737 


17 7564 


925 


002664 


100375 




926 


002666 


110137 


177566 


92 7 


002672 


000207 




928 








929 








930 


0026 74 


012701 


177777 


931 


002700 


105737 


177560 


932 


002704 


100023 




933 


002706 


113701 


177562 


93a 


002712 


120127 


000023 


935 


002716 


001003 




936 


002720 


052 704 


100000 


937 


002 724 


000763 




938 


002 726 


120127 


000021 


939 


C02732 


001003 




94^ 


002 734 


042704 


100000 


94 1 


002740 


000755 




942 








94 3 


002742 


12012 7 


000003 


944 


002746 


001002 




9m5 


002/50 


000167 


000200 


946 








94 ;■■ 


002754 


005 704 




94 8 


02756 


100746 




949 


002/60 


000207 





{SUPPORT I/O FUNCTIONS 

{OUTPUT A SLASH - IT 13 UP TO THE CALLER TO SAVE Rl 

SLASH: MOVB #'/ ( Rl : tT UP FOR AND FALL INTO TFY ROUTINE 

{OUTPUT THE SINGLE CHARACTER IN Rl 
TTYs TSTB SttOUTSTA 

BPL TTy 

MOVB Rl.fiWOUTBUF 



RT! 



PC 



; CHECK FOR XON OR XOFF 



XCHKt MOV 
TSTB 



10$ 



20$ 



99$ 



ft-l.Rl {NO CHARACTER 

5)0INSTA {HAS ANYTHING NEW COMF IN? 

{GET NEW CHARACTER 



{MARK XOFF 
{GET NEXT CHAR 



BPL 


99$ 


MOVB 


aVJlNBUF.Rl 


CMPB 


Rl.tfXOFF 


DNE 


10$ 


Li 1 5 


06IT15.R4 


HR 


XCHK 


CMPB 


Rl.OXON 


BNE 


20$ 


BIC 


0BIT15.R4 


BR 


XCHK 


CMPB 


Rl.OCTC 


BNF 


99$ 


JMP 


200 


TST 


R4 


BMi 


XCHK 


RTS 


PC 



{CLEAR XOFF BIT 
{CHECK FOR CONTROL C 



{CHECK FOR CURRENT XO* f 

{YES IGNORE THIS CHARACTER AND GET NEXT 



K> 



INI?:-: V-iTTON COOE 



uCRO Mi.'OO lO-MPR «4 10:3s PAGE 1H 



0?KR UTI! "IE i 



CO.' »• 

co. v 



■ C r 






«- * 
«-*A 

■ * — 

-*>*■ -4 
* « 

-*•■*' 
■4 4.? 

'i * 
'4 O 

'+ 4 
>4 4* 
't'«'* 

I. ' !.'>.■ 
(If " 



.04 



007 






> I 



SEQ 00^6 



**.I T : ;U:i IS Th* SAM* ThING AS POSITIVE COMPLETION 

,i,p. cmp rsP)..(SP')» ; RE TURN rES FROM MENU 



CM£ 

C..C 


rsP>.,(SP>* 

PC 


CH*- 1 

>e: 

RT l , 


(SP)».(SP). 
PC 



NC-PE : C^' ( SP ) ♦ . ( HP ) ♦ ;Rfc TURN NO *■ ROM HbNU 



; ma/[ SURE Tnf flit ENTERED IS CORRECT 
*IlE *US> BE ("N'ERED IN ThE ^ORM DON: ABCDf f .Gh! . wmER? DDK: IS !i-«t 
DE * ICf NAME Ok' A SUPPORTED DEVICE. ABCDE* ^ A -TWIN*. U* '> i>» * E WE » 

ALPHANUMERIC OfRACTERS, AND .GHI IS AN OPTIOVU » Ti E ' »PE , V , GhJ 

:s OHiTTtD :i ^l.i dkajit to .^zr 



' IlE NAME Is AL'JiADt IN 1NSTP. RETURNS C Ci EAR U GCOJ, 
. SES AGISTERS Rj, Rl , R«>. RJ 



.tR^CMKf :l 
rfCR,* ...-ft 

-er; bc ■;- 

.f Re 
.t R t "' 
»ERc' 
.PR? 

vERO 
• ER< 
vt Ro 

vER t J 

VCR^OS: 
»'ER? BNt 
VtR^40$: 
vER^ JsR 
vER/ CURB 
VERO TSTB 
vE.Rc' BfQ 
VE.R^SSI : 
VERcUOOi : 



:«o 



4INSTR.RC 



MCV 

no; 

MO* 

JSP 

ts'a 

RNf 
BR 



pc . se: took 

IOCS 

frOiX^AXN^M.Rc' 

RO . R ' 

w. , R ; 

PC.» Ii 1 

;rte : 

501 

r>C* ,«0 

40\ 



;INP' 



!RIN(, 



; fi{ Tu«N R'> POINT INS U) 



St " I*- NO r.coo 






CHf>S 

MO; 

pc.^ n .-> 

(,R* > 
( RO 

100* 

^c 

RTS 



i Ro ' l , ■"» 

04, Rl 



■UP- * It t NAME INTJ OOH 
f OR^A* f U« V-JTP.. T TO;' 

MAxjf*..*i of #., character^ in name. 



:* no t * ^ensicn. r:i f ■■• 



;-. A 1 T Chap M< '". ' (O N"l . :'R 

j no: r.-,ii . 

;MA«. 3f 4 CmAR, IN f X TENS I ON 
;i JR ST Char AlREAO* CmEC-'ED 
;Nv.H . ^Al. o-jS: TO IM SAFE. 
;F INAi CHAR MUST BF NUl. 



THIS IS CAiU-D ro CH( C'< TmE FILE NAME. IT TAKE/, TN Rl AND P>.- A POINTER T J Th£ 
FIIE NAME, IN Rl *hE iIN'.'H u» THE CERENT EIE.lt), AND IN R. Uit LOCATION '0 
COP i The e I i f NAm 10. IT Hi. ANK »■ H I S ' R»-' ) TO TmE iEN!»TH O* Rl f ROM THf 
f IRST NON ALPHANUMERIC CHAR IN l RO ) , AND FORMATS INSTR CORRFCTl « f OR 
OUTP'Jt 

I *iH 

CMPH {RO),;rZ 

100 J ;ThI 1 "> Must nf m^.Ai ChAR, JOM RE-lWN 

v R0),0' A 

FIl ;1» B, MUs! B[ Ai PhAEIE TIC 



VER^.ENABi 
Vr R.'E IL i : 
VERO B(, T 
VER.' CMPH 
V' 1/ R(",l 
VtR. 

VI R. CMPB 

.IK' Hi, 1 



( wo i,.v ■< 

1<H;$ 



j ^ N0 T A L'HR MUil B^ A NUMfcJtR 
iHUbl QL lLLtuAt 



J 3 



FAROM Bl AsTlR UTlt m 

INITIAL I/ATTON CPDf 

1008 
100* 
1010 
101.1 
10 u 
1015 
1014 
UUS 
10 it? 
101 " 
1018 
101« 
10?0 
KV1 
10?? 
10? 3 
10?4 
1025 
1026 
10? 7 

1028 

1029 

1C30 
1031 
1032 
103? 
1034 

1035 

1036 
1037 
1038 
1039 
1040 
1041 
1040 
104 3 
1044 
1045 
1046 
104 7 
1048 
1049 
1050 
1051 
105? 
105? 
1054 
1055 
1056 
105? 
1058 
1059 
1060 
1061 
106? 
106 3 
1064 
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00? / /6 

00? 1 76 
003u0? 
005004 



004 th ; 

005001 
01? 702 



000 ?06 



OOOQOOG 



SEQ 00?/ 



VCR? Bl T 
VER2FIL2: 
VER2 MOVB 
VER2 SCB 
VER2 BR 
VER2 
VER220$ 5 
VER2 506 
VER2100S: 
VER2.DSABL 



20$ jMIGHT BE NUll. OR '.*, SO BLANK PAD (R?) 

MOVB (R0),(R2)* (ALPHANUMERIC COPr 
(R0)».'R3)» iCOPY IT INTO INSTR TOO 
R1.FIL.1 jNEXT CHAR 

100$ i DONE 



MOVB 
R1.?0$ 
RTS 
LSB 



0' ,(R?)» 
PC 



IF ILL. WITH BLANKS 



R? CONTAINS 2 LETTER DEVICE NAME, RETURN DEVICE DDB SET UP % OR DEVICE, AND 
R5 POINTING TO IT, RO POINTING TO FRONT OF FRE NAME 



VER2SET00B} 
VER2 MOV 
VER210*: 
VER2 BEQ 
VER2 CMP 
VER2 BLT 
VER2 BR 
VER2 
VER220$: 
VER2 sue 



VER2 
VER2 
VER2 
VER2 
VER2 
VER2 
VER2 
VER2 
VER2 
VER2 



BLT 

CMP 

BGT 

CMPB 

BNE 

MOV 
MOV 
MOV 
MOV 



VER2S0$; 
VER2 SOB 
VER? MOV 
VER2 MOVB 
VER2 BR 
VER2 
VER299$: 
VER2100I; 
VER2 
VER2DEV: 
VER2 .WORD 
VER2 .ASCII 
VER? .WORD 
VER2 .ASCII 
VER? .WORD 
VER? .WORD 
VER?SCF : 
VER? .EVFN 



t uw in karom 

WRTROMi 

J5R 
CIR 

MUV 



MOV 

0DEV.R1 

CMP 

?0$ 

(Rl)*,CRl) 

10$ 

99$ 



CRO)*,R? 



CR1)*,R2 



lLOAD POSSIBLE DEVICE 



jDO WORD COMPARE FOR ? LETTER DEVICE 



I MATCH 
i DONE ? 
jNO - TRY NEXT DEVICE 



t CHECK UNIT NUMBER AND COLON 
{LEAVE BINARY UNIT NUMBER IN R2 



MOVB (RO)f.R? 

O'O.R? 

99$ 

R2,07 

99 J 

(RO)*,*' : 

99$ 



0DDB»X8Uf',R3 jGOOD DEVICE, BUILD DDB 

*6UF,(R3)» 

©XXNAM-XBUf ?,R5jL0AD BUFFER SEPERATfcLi 

(R1),R1 {LOAD THE DOB FRONT POINTER 

MOVB CR1)»,(R3)» 

R5,30$ 



♦DDB.R5 
R?,XDN(R5) 

100$ 



j LOAD DRIVE NUMBER 



SEC 
RTS 



PC 



.ASCII /DD' 

DYDDB»XBUF»? 

'0>/ 

l)iDDU*XBUt ♦? 

/Ox/ 

DiDDR.XBU* »? 



.ASCI/ /.SO ' 



PC.BLDCHK 

Ri 

tfUPUAIE.H? 



}D>DDB I SKIP THE BUFFERS 

iDtDDB 

lOKODB 



i»"li 0, LOAD CHECKSUM 
i PAGE 
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c 



4 



INITIALIZATION COOF 



SEQ 0028 



1065 

106* 

1008 

10t>0 
10:0 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 

ioeo 

1081 
1082 
1083 
1064 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 

1098 

1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
111/ 
1118 
1119 
1120 
1121 



003010 
003016 
003022 

003024 
003030 
0030J4 
003036 
003040 
003042 
003046 
003050 
003052 
003056 
003060 
003062 
003066 
003070 

003072 
003074 
003100 
003104 
003106 
003110 
003112 
003114 
003120 
003122 
003124 
003126 
003132 
003136 
003140 
003142 
003144 
003146 

003152 
003156 
0C3160 
003162 

003166 



00 3174 
00 SI 76 

00 520? 
003204 
00 3206 

003210 

005214 
003216 
003222 



052 737 

032704 
001423 

012700 
110137 
121210 
001403 
111210 
004 767 
005202 
005720 
03002 7 
00136G 
005721 
020127 
001356 
0004 37 

005003 
110137 
012700 
122220 
001401 
005203 
105720 
032700 
001371 
005703 
001412 
012703 
162700 
160302 
112022 
105720 
077303 
004 767 

030027 
001352 
005721 
020127 
001342 



003170 000167 



010046 
01.2700 
07/001 
012600 
00020/ 

012 700 
005002 
012703 
112001 



000020 1/7520 
000004 



165000 
177522 



000126 
COO/7 7 
000020 



17 7522 
165000 



000037 



000020 
000040 



000022 
000777 

000100 

17 7566 

027340 

000000ft 
000150 



BIS 
BIT 
BEQ 

10 $: MOV 

MOVB 
20$: CMPB 
BEQ 
MOVB 
JSR 
30$ { INC 
TST 
BIT 
BNE 
TST 
CMP 
BNE 
BR 

CLR 
MOVB 
MOV 
CMPB 
BEQ 
INC 
30$: TSTB 
BIT 
BNE 
TST 

BEQ 

MOV 

sue 
sue 

40$: MOVB 
TSTB 
SOB 
JSR 

50$; BIT 
BNE 
TST 
CMP 
BNE 

LEAVE; JMP 



EIGHTK 
10t: 

20$: 



0BIT4.Q0BCSR 

0BIT2.R4 

EIGHTK 

0165000,^0 

Rl.QOPCRLO 

(R2).(R0) 

30$ 

(R2).CRu) 

PC.DELA1 

R2 

CRO). 

HO, 0777 

20$ 

(Rl). 

Rl,0<PAGES*2>/4 

10$ 

LEAVE 

R3 

Rl.SOPCRLO 

0165000.ro 

(R2)»,(R0)* 

30$ 

R3 

(RO). 

037, RO 

20$ 

R3 

50$ 

<»20.R3 

O40.R0 

R3,R2 

(RO)*,(Rt?)» 

(RO)* 

R3,40$ 

PC. DEL AY 

RO.O/77 

20$ 

(RO. 

R1,0PAGES*2 

10$ 

flip 



jDe.L At ABOUT 10 MS 



Dfcl.Al : 


MOV 


RO, (SP) 




MOV 


«12000, ,R0 




SOH 


RO, . 




MOV 


< SP ) » , RO 




RTS 


PC 


fit OCHK i 


MUV 


OUPOATf ,«0 




Cl R 


R2 




MOV 


0104. ,R3 


10*1 


MOVB 


CROi^Rl 



jURTTE FNABLE 

j SIZE OF ROM 

I TF SET, ROM IS 2K 

I FIRST ADDRESS OF ROM 



iCOPr 



jROM IS 8X8K HIGH RfTE IS NONEXISTANT 

j CHECK FOR FND OF PAGE 

jREAO NEXT Br ft 

iNEXT PAGE CINC BY 2) 

j ONLY DO ^< 

j COPY NEXT PAGE 



jANY CHANGES YtT? 

j SET ROM PAGE 

jFIRST ADDRESS OF RUM 



j CHANGES 

,ROM IS 8X8K HIGH BYTE IS NONEXISTANT 
j WRITE 20 BUE BLOCKS 

; FINISHED COMPARING A BLOCK - CHANGES? 

iNO, GO DO NEXT 

jyFS RESET ROM AND RAM POINTERS 



jCOPi QUICKl t 

jWAIT FOR WRITE TO FINISH 

{REACHED END OF PAGE 

jREAD NEXT Bi U 

i NEXT PAGE ( INC BH 2) 

j COPY NFXT PAGE 

iFXTT WITH CC 



(H'.'im \H{ CHL CK'..l»M 
iNUMUER ^' UiTtb TO USt 



1)3 
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INITIALIZATION CODE 



SEQ 0020 



1122 
1123 
1124 
1105 
1126 

112- 

1128 
112* 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
.139 
1140 
1141 

1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 



003224 
003226 
003230 
003232 
00323b 



003240 

003240 
003246 
003252 
003254 

003260 
003264 

003270 
003272 
003274 
003300 
003302 
003304 
003310 

003312 
003316 
003322 
C03326 
003330 
003332 
003534 
003540 
003342 



060102 

7 7303 
005402 
110267 
00020 7 



012737 
012702 
005001 
110137 
012700 
111062 
112022 
105720 
030027 
001371 
005721 
020127 
001361 

012702 
012701 
012700 
022122 
001003 
0/7003 
052704 
000241 
000207 



000150G 



0027 70' 000004 
OOOOOOG 

1 7 7522 
165000 
OOOOOOC 



000777 



000100 



OOOOOOG 
0O4000G 
002000 



000004 



ADD 

SOB 

NEG 

MOVB 

RTS 

;READ EAROM 

REAROM; 

MOV 
MOV 
CLR 

10$: MOVB 
MOV 

20 J j MOVB 
MOVB 
TSTB 
BIT 
BNE 
TST 
CMP 
BNE 



30$; 



100 J : 



MOV 
MOV 
MOV 
CMP 
BNE 
SOB 
BIS 

ac 

RTS 



R1.R2 

R3.10S 

R2 

R2, UPDATE 
PC 



104. 



4N0PE , S04 

*IMAGE>R2 

Rl 

Rl.aoPCRl.O 

0165000, RO 

IRO). UPDATE -IMAGECR2) 

(RO)»,(R?)» 

(RO). 

RO.O/77 

20* 

CRD* 

Rl.OPAGES+2 

10$ 

«UPDATr.R2 

tfJPDATE*4000,Rl 

O40O0/2.RO 

(Rl)*.(R2)* 

100$ 

R0.30J 

06IT2.R4 

PC 



j 2' S COMP 

I LOAD CHECKSUM 

jRETURN RO 



l SET UP ERROR RETURN 

j ADDRESS OP* ROM IMAGE IN MEMORY 

j PAGE 

I SET ROM PAGE 

j FIRST ADDRESr Of ROM 

j MAKE COr- TO iJPDATE 

j MAKE IMAGE COPf 

jROM IS 8X8K .«IGH RrTE 

{REACHED END 0* PAGE? 

{READ NEXT BtTE 

i NEXT PAGE CINC BY 2) 

iCOPt NEXT PAGE 

{CHECK FOR 8K ROM 



t ANr Din ERENCE MEANS 8l< 

j CHECK 2K 

j MARK AS 2K ROM 

j GOOD RETURN 

l 



IS NONEXISTANT 



t5 



E AROM 111 A^UR UUl. in 
INITIALIZATION CQOF 



MACRO MU'OO 10 APR 84 10}3<) PAW. l 1 * 



SEQ 0030 



1155 00334* 
llT>t> 003346 
IIS: 003350 

1158 

11 60 0033 70 

llc*l 

lltO 

11*3 

lltvl 

iiot> 



000000 
000000 



000000 000000 177 77 7 

001000 
165000 



INISTKi .WORD 

MONADR j . WORD 

INSTR: .BLKD 20 j INPUT STRING 

iDUMMl APT COMMUNICATION AREA, -1»S ARF. TEST TIME INFORMATION, MAUI: AS LARGE AS 

j possible-: 

APTINF: .WORD 0,0,-1,-1,-1,0 



ROMLEN 


■ 


1000 


ROMADR 


a 


165000 


;VER2 .BLKD 


• XBUF 




;VERi?DDB: 


.BLKB 


XXNAM*10, 


t VER<> .BYTE 








EAROM HIASTFR UTILITY MACRO M1200 10-APR 84 1Ci39 PAGE 20 
INITIALISATION CODE 



t) 



SEQ 0031 



1168 
llf.9 
11 70 
1KI 
117? 
1173 
1174 
1175 
<L><L> 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
!-201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
121? 
1214 

1215 



003404 
003404 
003440 



003462 
003553 
003643 
003713 
003746 
004001 
004001 
004040 
004071 
004120 
004152 
004211 
004246 
004262 

004326 
004 326 
004 343 
004365 
004423 
004521 

004562 
004562 
004607 



004640 
004 Uc> 
005006 
005030 



015 
104 



Oil 
Oil 

on 
on 

Oil 

015 
104 

on 

Oil 

Oil 

on 

Oil 

on 



015 
015 
015 
015 
015 



015 

111 



OH 

on 
on 

Oil 



012 
117 



123 

104 
122 
110 
105 

012 

117 
103 
125 
102 
123 
110 
122 



012 
012 
012 
012 
012 



012 
116 



123 
104 
105 
110 



012 
040 



040 
040 
040 
040 
040 

012 
040 

Oil 
Oil 

on 
on 

Oil 

on 



012 
Oil 
Oil 

on 

Oil 



012 
106 



040 
040 
040 
ill 



.NLIST 
{MENUS 
$MENU: 



;VER2 
jVER2 
}VER2 



$HMENUt 



$EMENU: 



SHELP 



VER2 
VER2 
VER2 



JVER2 
;VER2 
jVFR2 



BEX 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCI/ 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
. ASCIZ 
$MORP: 
.ASCII 
.ASCIZ 



<C><'L><'L><L><T><T><T>'MAIN COMMANDS MENU* <C > <L><1 > 
'DO YOU WANT TO:'<C><L><L> 

<1>'F CREATE SYSTEM CONFIGURATION FILE FROM EAROM ?'*C"L><L* 

<T>'C COPY SYSTEM CONFIGURATION FILE TO EAROM ?* <C ><L > <■. > 

<T>'U UPDATE SYSTEM MEMORIES OR PERIPHERALS DESCRIPTION ?' <C> 

<T>'S UPDATE SYSTEM HARDWARE OESCRIPTCON ?''C>*L><L> 

<T>'D DISPLAl/PRINT SYSTEM DESCRIPTION ?• <C » <L ><L ><L > 

<T>*R DISPLAY THIS MENU ?'<C><L><L> 

<T>'H HELP ?*<C><L>'L> 

<T>'E OR <RETURN> .. EXIT ?'<C><L> 

<C><L><L><L><L><T><TwT>*UPDATE HARDWARE MENU' *C><L ><L > 

'00 YOU WANT TO UPDATE :* <C ><L ><L > 

<T>'C CPU DESCRIPTION ?'<C><L><L> 

<T>'U UNIBUS DESCRIPTION ?*<C><L><L- 

<T>'B BOOT DEVICE DESCRIPTION ?' ^C»<i >'t - 

<T>'S BOOT SWITCH SETTINGS ?' <C> <l .^<L »'L > 

<T>'H HELP ?*<C><L><L'» 

<T>'R RETURN TO MAIN COMMANDS MENU ?'<C*<1 * 



cC^LxLxL^L^L*' 
<C><L>\ DO YOU WANT 
< C >< L > \ R . 
<C><1.>\ W . 
<C><L>\ E , 



EXIT' <l > 



li :\ 



RETURN TO MAIN MfNU\ 

WRITE THE ROM FROM THE CURRENT DESCRIPTION ANO EXIT 

EXIT WITH NO UPDATE\<C»<L* 



iVER2*SUHE: 
;VER2 .ASCII 
iVER? .ASCII 
iVtR^ »ASCXZ 



<C"><L><L><L><1. ><L><T><T><T > ' HELP MENU* <C><L><L> 
* INFORMATION AVAILABl E j * <C><1 ><L> 

<T>'F CREATING A SYSTEM CONFIGURATION FILE FROM EAROM. *C**l*«l* 

<T>'C COPYING A SYSTEM CONFIGURATION FILE TO EAROM. '*C**L^*i * 

<T>*U UPDATING SlSTtM MEMORIES OR PERIPHERALS DESCRIPTION* * *C**L»<L> 

<T>S UPDATING SYSTEM HARDWARE DESCRIPTION. ' <C'»*l ■■*!. * 

<T>'D DISPLAY ING/PRINTING SYSTEM DESCRIPTION. 4 <C*<L**L* 

<T>'E EXIT. ' <C><L>iL* 

<T>'HIT < RE TURN* TO RETURN TO MAIN MENU'<L><L> 
.ASCII <C><l.*'DO YOU WANT TO UPDATE:' 

<C><L>* M MEMORY' 

<C><L>' P PERIPHERAL* 

.ASCII *0<l> / IS FHIS WHAT YOU WANT?/ 

<C^<L>/ » . . , rES/ 

<Cwiv m QR <RETURN> *» NQ/<C>^L* 
zz 



G'5 
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INITIALIZATION CODE 
1217 



5EQ 003? 



1 > 



1216 


005077 


015 


012 


012 


CPUTIT: 


.ASCII 


1219 


005130 


000 








.ASCIZ 


1020 


005131 


015 


012 


174 


CPUDESj 


.ASCII 


1221 


005242 


015 


012 


174 




.ASCII 


1222 


005353 


015 


012 


174 




.ASCII 


1223 


005464 


015 


012 


000 




.ASCIZ 


12.74 


00546 7 


015 


012 


012 


UBATTT; 


.ASCII 


1225 


005520 


000 








.ASCIZ 


1226 


005521 


015 


012 


174 


UBADES: 


.ASCII 


122? 


005551 


015 


012 


174 




.ASCII 


1228 


005601 


015 


012 


174 




.ASCII 


1229 


005631 


015 


012 


000 




.ASCIZ 


1250 


C05634 


015 


012 


012 


BOTTIT; 


.ASCII 


1231 


005676 


000 








.ASCI2 


1232 


005677 


015 


012 


174 


BOTDES; 


.ASCII 


1233 


005745 


015 


012 


174 




.ASCII 


1234 


006013 


015 


012 


000 




.ASCIZ 


1235 














1236 


006016 


015 


012 


01? 


SUITIT; 


.ASCII 


123? 


006050 


000 








.ASCIZ 


1238 


006051 


015 


012 


174 


SWIDESi 


.ASCII 


1239 


0060 7 7 


015 


012 


174 




.ASCII 


1240 


006125 


015 


0X2 


000 




.ASCIZ 


1241 















{DESCRIPTOR HEADER STRINGS 

// 
.ASCII <C><L>/)IGNORE)POWER >REBOOT >MASTER > HALT > HALT > LINE > LINE > LINE > MAIN 



CPU DESCRIPTI0N/<C><1.><1.><1 > 



<C><L>/>BATT. > UP 

<C><L>/)STATUS>MODE 

<C><L>// 
<C><L><L><1. "*/ 

// 

<C><L>/)UNIBUS> 18 

<C><L>/> CACHE) BIT 



> MODE )GRANT > TRAP ) ON )CLOCK >CLOCK >Cl.OCI< >MF.MOR 

> > BUS )0PTI0N)BREAK >STATUS)INTER. > CSR > TEST 

UBA DESCRIPTIQN/<CwL><L><L> 



>UNIBUS>/ 
)MEM0RY>/ 



> MODE ) 



>/ 



BOOT DEVICES DESCRIPTION/<C><L ><L ><L> 



<C><L>/> 

<C><L>// 

<C><L><t*<L>/ 

// 

<CwL>/)ENTRY)DEVICE>PHVS. ) LOG.) CSR )/ 

<C><L>/> NO. > ) NO. ) NO, > ADDRESS )/ 

<C><L>/V 

<C><L»<L*<L.»/ SWITCH SETTINGS '<C><L><L><L> 

// 

<CwL>/)SWl. >UEVICE> LOG.)/ 

<wl>/) NO, > > NO. >/ 

<C»<L>// 
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INITIALIZATION CODE 



5EQ 



1243 
1244 
1245 

i:46 

124 7 
1248 
124* 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 

1260 
1261 
1262 
12o3 

l.>4 
12t>5 



006130 

006211 
00627/ 

006353 

0064 51 
00654 ; 
006645 
006 74? 
00704 1 
CO 7 1 3 7 
00/235 
007333 
00 7431 

00752 7 
007.^01 
007654 
00/72 7 
010002 

010055 



015 
015 
015 

015 

015 
015 

015 
015 
015 
015 
015 
015 
015 

015 
015 

015 
015 
015 

015 



012 
012 
012 

012 
012 
012 
012 
012 
012 
012 
012 
012 
012 

012 
012 
012 
012 
012 

012 



125 
061 
125 

111 

120 
122 
115 
110 
110 
114 
114 
114 
115 

104 
124 
120 
114 
103 



; INPUT 
UBAPO 
UBAP1 
UBAP2 

CPUPO 
CPUP1 
CPUP2 
CPUP3 
CPUP4 
CPUP5 
CPUP6 
CPUP7 
CPUP8 
CPUP9 

BOTPO 
B0TP1 
B0TP2 

B0TP3 
B0TP4 



.ASCI/ 
.ASCI/ 
.ASCIZ 

.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCI/ 

.ASCI/ 

.ASCIZ 
.ASCI/ 
.ASCIZ 
.ASCIZ 



<C><L>\UNIBUS CACHE 
<C><L>\18 BIT MODE 
<C><L>\UNIBUS MEMORY 



(DISABLE/ENABLE) [0 1 

(DISABLE/ENABLE) [0 1 

TEST (DISABLE/ENABLE) [0-1 



<C><L>\Tf,NORE BATTERY STATUS 

<C><L>\.'OWER UP MODE 

<C><L>\REBOOT MODE 

<C*<L>\MASTERSHIP GRANT COUNT 

<C><L>\HALT/TRAP OPTION 

<C><L >\HAl.T ON BREAK 

<C><L>\LINE CLOCK CSR 

CLOCK INTERRUPT 
CLOCK SOURCE 
MEMORY TEST 



<C><L>\LINE 
<C><L>\LINE 

<C><L>\MAIN 



COISABLE /ENABLE) (01 

( DIALOGUE/ TURNK1 i/ODT/TRAP) [0-3 

COIALOGUF./TURNKEY/ODT/TRAP) [0-3 

CO/1/2/3/4/5/6/7) [0 / 

(HALT/TRAP) [C 1 

(DISABLE/ENABLE) [0-1 

(ENABLE/DISABLE) [0-1 

(DISABLE /ENABLE) fO 1 

(BE VENT/50H//60HZ/800H/) lO-.< 

(ENABLE/DISABLE) [0- 1 



s \ 



<C*<L>\DEVICE NUMBER TO CHANGE O TO 9) 
<C><1 >\TWO LETTER DEVICE MNEMONIC *\ 

<C><L>\PHYSICAL UNIT NUMBER (0 TO 37/) *\ 

<C><L>\LOGICAL UNIT NUMBER (0 TO 377) 

<C><L>\CSR ADDRESS (0 TO 17*77/) 



123 SWIPO: .ASCI/ <C><L>\SUIITCH SETTING TO CHANGE CI Tu 6) 



•- v 



\ 



13 



EAROM KIASUR UI It I T 1 MACRO M1200 1.0 -APR -84 10;39 PAGE 23 
INITIAL I/ATION CODE 



5EQ 0034 



12b/ 










1263 










1269 


010130 


015 


012 


040 


12 ro 


010136 


015 


012 


Oil 


1271 


010151 


015 


012 


012 


1272 


010242 


015 


012 


Oil 


12/3 


010332 


015 


012 


012 


12/4 


010403 


015 


012 


040 


1275 


010411 


015 


012 


on 


1276 


0104 24 


015 


012 


012 


1277 


010520 


015 


012 


on 


12 78 


010603 


015 


012 


012 


1279 


010654 


015 


012 


040 


1250 


010662 


015 


012 


on 


1281 


010675 


015 


012 


012 


1282 


010760 


015 


012 


Oil 


1283 


011047 


015 


012 


Oil 


1284 


011134 


015 


012 


Oil 


1285 


011223 


015 


012 


012 


1286 


011320 


015 


012 


040 


1287 


011326 


015 


012 


on 


1288 


011341 


015 


012 


012 


1289 


011412 


015 


012 


on 


1290 


011465 


015 


012 


on 


1291 


011533 


015 


012 


on 


1292 


011611 


015 


012 


012 


1293 


011706 


015 


012 


040 


1294 


011714 


015 


012 


on 


1295 


011727 


015 


012 


012 


<C><1> 










1296 


012035 


015 


012 


040 


1297 


012043 


015 


012 


Oil 


12 »8 


012056 


015 


012 


Oil 


lr'*-»9 


012157 


015 


012 


Oil 


1300 










1301 











{HELP 
$MSG1: 



$MSG2: 



$MSG3: 



►SAGE STRINGS 



*MSG4 t 



$MSG5: 



*MSG6s 



.ASCII 

.Ascri 

.ASCII 
.ASCII 
.ASCIZ 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 
.ASCII 
.ASCII 
.ASCIZ 

.ASCII 

.ASCII 

.Ascn 
.Asci*: 

♦ EVEN 



<c>< 

<c>< 



<c>< 
<c>< 
<c>< 



<c>< 

<c>< 

<c>< 



<c>< 

<c>< 
<c>< 
<c>< 

< 
< 

<c>< 

<c>< 

<c>< 
<c>< 



L><T> 

1.><L> 

<C><L 

<C><L 

L>' 

L><T> 

!.><L. > 

<c><i. 

<C><L 
L>' 
L >< 1 > 

L ><l> 

<C*<i. 

<C><L 

<C><1. 

L><L> 

L>* 

L><T> 

L><L > 

C><L> 

C >< L > 

C><L' 

L><L> 

L>* 

L w T s 

L><L> 



f ' 
'USE TO 

><T> ' 
><L >< T> ' 

C* 
'USE TO 
<T>' 
■><]•>' 

><l.xT> 1 

U' 
'USE TO 
<T>- 
>< T> ' 
>< T > ' 
><T>« 
<T>'FOR 

S' 

'use; ro 

<T>'C 
<T>'U 

v T •> ' B 
< T w S 
<T*'FOR 

D* 
' USE. TO 
<T*' 



< C > * I . >< T * ' 
<C><1 >< T > ' 
<C><L><T*' 



E ' 

USE 



UPDATES THE SYSTEM CONFIGURATION EAROM WITH THE. 
CONIENTS Of-' A SYSTEM CONFIGURATION FILE ( . SCE ) 
FILE NAME FORMAT: DEVICE :F ILENAME' <C><L> 



CREATES A SYSTEM 

CCNIENTS OF THE 

FILE NAME FORMAT: 



CONFIGURATION FILE ( . SCF ) WITH THE 

SYSTEM CONFIGURATION EAROM,' 
DEVICE :FILENAME' <C^L> 



ADD MEMORY/PERIPHERAL DESCRIPTOR TO EAROM.* 
DELETE MEMORY/PERIPHERAL DESCRIPTOR FROM EAROM.' 
MODIFY MEMORY/PERIPHERAL DESCRIPTOR ON EAROM.' 
DISPLAY MEMORY/PERIPHERAL DESCRIPTORS ON EAROM.' 
DETAILED INFORMATION REFER TO UTILITY USERS GUIDE. 



< C > < L > 



MODIFY 

MODIFY 

MODIFY 

MODIFY 

DETAILED 



CPU DESCRIPTOR ON EAROM.' 

UNIBUS DESCRIPTOR ON EAROM.' 

BOOT DEVICES ON EAROM. • 

BOOT SWITCH MEANINGS ON EAROM. 1 

INFORMATION REFER 10 UTILITY USERS 



GUIDE.' <C><L"» 



DISPLAY THE SYSTEM DESCRIPTION ON THE C0NS0LE/L1NEPRINTER 



TO :' 
SAVE NEW lit n-CF IONS ON EAROM AND RETURN ^0 XXDP* MONITOR. ' 
RETURN TU XXDP* MONITOR WITHOUT SAVING NEW SELECTIONS. ' «C*<L> 



t'AROM Ht AsU« tUIl 1TY MACRO M1200 10-APR-84 10*39 PAGE 2*4 
INITIALIZATION CODE 



1505 










{OTHER 


ASCir STR 


1504 


012260 


015 


012 


113 


* HEX 1.0 


.ASCIZ 


1305 


012333 


oi:> 


012 


104 


*TYASK 


.ASCI/ 


I30t> 


012414 


015 


012 


1 '.6 


ILLCOri 


.ASCII 


1507 


0124'.2 


015 


012 


121 


RETMSG 


.ASCIZ 


1508 


012505 


015 


012 


111 


BADFIL 


.ASCI? 


1509 


012*34 


015 


012 


012 


GETFIL 


.ASCIZ 


1510 


OU>t>dc? 


015 


012 


103 


TOOLNG 


.ASCIZ 


1311 


012/07 


015 


012 


105 


PROMPT 


.ASCIZ 


1312 


012 777 


015 


012 


105 


NOROM; 


.ASCIZ 


1515 


013037 


015 


012 


111 


ERRIN; 


.ASCIZ 


1514 


013061 


015 


012 


106 


NOTYET 


.ASCIZ 


1315 


013120 


015 


012 


007 


RESTOR 


t .ASCIZ 


1316 


015171 


174 


040 




LBL5: 


.ASCII 


151 ; 


0131/3 


040 


040 


000 


DL4: 


.ASCIZ 


1518 


0151/6 


174 






VCRLF : 


.ASCII 


151<* 


013177 


015 


012 


000 


CRLF: 


.ASCIZ 


1 ISO 


013202 


015 


012 


012 


RFAD: 


.ASCIZ 


1.V1 


013213 


015 


012 


012 


WRITE,: 


.ASCI^ 


1322 




oooooi 






,tND 





INGS 

<C><L>'KDJ11-B EAROM MAINTENANCE UTILITY V1.0*<C>'L> 

<C><L>'DO YOU WANT A HAROCOPY LISTING C N/Y CR-Y ) ? ' 

<C><L^/NOT A VALID CHOICE, / 

<C><L>/TYPE <RETURN> TO RETURN TU MENU / 

<C><L>/ILLLGAL FILE DESCRIPTION/ 

<C><L><L><L>/ENTEF* DEVICE AND FILE NAME DDN:XXXXXX OR <RFTUPN> TO CANCEL: 

sC><L> /COMMAND TOO LONG, PLEASE REENTER: / 

<C><L>/ENTER SINGLE CHARACTER COMMAND FOLLOWED Bt <RE.TURN>: / 

<C><L^/EAROM NOT PRESENT IN SrT>ThM/<C><L> 

<C><L>/INCORRECT INPUT/ 

<C><L » /FUNCTION NOT YLT IMPLEMENTED/ 

<C><L><BELL>/WRITE FAILURE, RESTORING ORIGINAL RUM/ 

/> / 

/ / 

/>/ 

<C><I. .*// 

<C>Uxl>/READ / 

<C^<L><L>/WRITE / 



y a 



b'AHON BIA5IER UTILITY MACRO M1200 10 -APR -04 10:59 PAGE 24-1 
SYMBOL TABLE 



SEQ 0056 



Al.C 


1 ;///o 


CPUP / 


007235ft 


APT INF 


003370ft 


CPUP8 


00/333R 


ARGS * 


000000 


CPL'P9 


007431R 


BADE II. 


012505R 


CPUTIT 


005077R 


BCSR * 


177520 


CRi.r 


013177R 


BEGIN 


OOOOOOR 


CTC 


000003 


BE-l.l. - 


00000 7 


DDISP - 


1/7S7C 


BITO 


uOOOOl 


DFCTAB 


001760R 


BIT1 = 


000002 


DEt 


00017 7 


BIT10 * 


002000 


DELAY 


0031 74R 


BIT12 = 


010000 


DESCRP 


001374R 


BIUS = 


100000 


DLT 


177760 


BIT? = 


000004 


DSWR ■ 


177570 


BIT3 = 


000010 


F.IGHTK 


003072R 


BIT4 - 


000020 


EMENU 


000536R 


BITS = 


000040 


ERRIN 


013037R 


BIT6 -- 


000100 


ERROR 


000346R 


BIT? a 


000200 


ERR0R1 


000342R 


BLOCHK 


003210R 


ETR 


177764 


BLKID * 


000200 


EXIT 


002762R 


Bl.4 


013173ft 


GET COM 


C02450R 


BOT 


177 754 


GETTIL 


012540R 


BCTDES 


005677R 


HAROM 


000440R 


BOTDT 


001132R 


HELPM 


0004 74R 


BO IPC 


007527R 


HMSG1 


000600R 


B0TP1 


007601R 


HMSG2 


000604R 


B0TP2 


007654R 


HMSG3 


000610R 


B0TP3 


00 7727R 


HMSG4 


000614R 


U0TP4 


010002R 


HMSG5 


000620R 


B0T1TT 


005634R 


HMSG6 


000624R 


H- TBLK= 


OOIOOO 


ILLCOM 


012414R 


C 


000015 


IK AGE - 


****** GX 


CI s 


1/7762 


INBUF - 


17 7562 


CRUDE S 


005131R 


INI 


177774 


CPUDT 


000 742R 


INISTK 


003344R 


C^UPO 


006 35 3 R 


INMAP 


000724R 


CPUP1 


006451R 


IN5TA - 


17 7560 


CPUP2 


00654 7R 


INSTR 


003350R 


CPU^3 


00664 5R 


ITYPO 


002144R 


CPUP4 


006 74 3R 


ITrPIO 


002352R 


CPUP5 


00/041R 


IT1P2 


002212R 


CPUP6 


007137R 


ITYP4 


002314R 


. ABS. 


000000 ( 


300 






013225 ( 


301 





ITYP6 


002334R 


I. 


000012 


LBL5 


0131/lft 


LEAVE 


003170R 


MAINM 


0004 10R 


MENU 


000266R 


MH.CHR 


000512R 


MUNADR 


003346R 


MSTAB 


000700R 


MS. 8 


000666R 


MS.C 


000666R 


MS.CHR 


000464R 


MS.H 


000366R 


MS.S 


000666R 


MS,U 


000666R 


M.CHRS 


0004 32R 


M.D 


000560R 


M.E 


000646R 


M.H 


000402R 


M.S 


000360R 


NOPE 


002 7 /OR 


NOROM 


012/77R 


NO r YET 


013061R 


OCTTN 


0023 74R 


OCTOUT 


002016ft 


OTYPO 


001570R 


0TYP10 


002100R 


0TYP2 


001646R 


0T1P4 


001772R 


0TYP6 


002002R 


UUTBUE « 


17 7566 


OUTMAP 


000712R 


OUTSTA- 


17 7564 


0UT$ 


000356R 


PAGES » 


000040 


PAINT 


000? 7 OR 


PCRLO * 


i 7 7522 


PROMPT 


012 707R 


PRTCSR- 


000000 


REAO 


013202R 


ftEAROM 


00 324 OR 


REPLQT 


00Q356R 



RESTOR 


013120R 


RETCOM 


002444R 


RETMSG 


012Q42R 


ROhADP* 


165000 


ROMLEN- 


001000 


RUE 


000554R 


SLASH 


002654R 


SRH 


177766 


5VC 


177772 


5W10HS 


006051R 


SWIDT 


001212R 


SWIPO 


010055R 


SWITIT 


006016P 


T 


000011 


TOOLNG 


012642R 


TTY 


002660R 


TYPM5G 


002634R 


U 


0001/4 


UBADES 


005521R 


UBADT 


OO1072R 


UBAPO 


00613OR 


UBAP1 


00621 1R 


UBAP2 


006272R 


UnATtT 


005467R 


UPDATE - 


****** GX 


UPDRAM 


001252R 


VCRLE 


013176R 


WHICH 


001372R 


WRITE 


013213R 


WRTROM 


002 7 76R 


XBA 


000004 


XBC 


000016 


XBKl UT« 


1 7 7 746 


XH T 


1 7 7 754 


XBU 


17/714 


XCHK 


0026 74R 


XCM 


000000 


XCO 


000U10 


XON 


17// rt> 


XDft 


000020 


XDT 


000006 



XER 


177777 


XKLCNT- 


177722 


XL5TBi< = 


177750 


XMKIO ■* 


000026 


XNB 


000022 


XOFF = 


000C2? 


XON 


000021 


XRD 


000012 


XSV 


177772 


XSVBLK* 


17 7730 


XSVCNT* 


177 726 


XSVDAT- 


17 7740 


XSVEXT- 


177736 


X5VMAP- 


17 7/24 


XSVNAM* 


17 7 732 


XSVUPT* 


177 752 


XSVXX - 


17 7 742 


XWC 


000002 


XUCTR * 


177716 


XWIl.D * 


17 7720 


XUT 


000014 


XXNAM ■♦ 


000024 


X1ST > 


177 754 


X15TBK- 


177744 


YN 


000532ft 


lORN 


000516ft 


YUP 


002762R 


/Eft 


I 7/756 


*EMENU 


OU4326R 


$ HELLO 


012260R 


• HELP 


004562R 


$HMfc.NU 


004001R 


5 MENU 


003404R 


iMSGl 


010130R 


SMSG2 


010405R 


SMSG3 


01 0654 R 


JMSG4 


01 IVOR 


JHSG5 


011/ObR 


$MSG6 


01 20 VSR 


SSWR 


160000 


JTYASK 


Q12333R 



ERRORS DETECTED: 

VIRTUAL MEMORr USED: 9421 WORDS I 3/ PAGtS) 
DiNAMIC MEMOftf: 20060 WORDS ( 77 PAGES) 
M APSLD TIME: 00:00:24 
B4 # B4/-SP^BLMAC*DDBDEF,B4 I END 



.Nl 1ST 
MACRO -PACKAot REVISION HISTORY 
REVISION DATE CHANGE 



1.5 

i)fcU 005/ 



;?S-MAY-78 INITIAL ISSUE 

1 31 -MAY 78 OELF.TE iBKREAD AND SNXTfll.K MACRO DFFINITIONS 
6-JUN-78 ADDED $CHKSUM MACRO 

5 8 -JUL. -78 DELETE .PTRRD, .BMOVE, .SCHAIN, AND .ABORT MACRO DEFINITIONS 

ADD .SETERR AND .ERROR MACRO DEFINITIONS 

8 JUL -78 FIELD TEST VERSION 

1 Ur-JUL .-78 ADO $ ABORT DEFINITION- REMOVE JNXTBL.K DrFLNITION 
22 AUG -78 ADD MACFO DEFINITIONS FOR ROUTINES MOVED FROM DRIVERS TO DRVCOM 

^0- JUL -80 MAKE CHANGES MARKED BY jMACOOl 

28 -OCT -80 REMOVED iREMAIN MACRO jMACOOc? 

31 -OCT -80 ADDED .FRCTYP AND .CHKCC jRWHOOl 

CHANGED .ERROR TO USF RO jRWBOOl 

remcved old EMI macros for blast program } rwy 

fake the needed EMT calls 

this macro recovers from errors during I/O 

this I r. supposed to pass errors my way using th«? calls already existing 
• n the Jr i vers 
.macro . frctyp arg 

mov arg.rO 
sec 
.endm 

,;nacro . up^nam 

jcr pc .upknam 

. er.dm 

•macro .cmpnam 

jsr pc, cmpnam 
,endm 



M z 



J> 



;THt h Oil OWING MACROS GENERATE TRAP CAl I f> 



SEQ 0038 



.MACRO $ T^ PR AD ARGl 
.NARG NARGS 

.If NE, NARGS 

.NTiPfc NlYPE.ARGl 

. W NE.NTYPb 

MOV ARG1.R0 

.ENDC 

.ENDC 

TRAP 1 

.ENDM $HPRAD 



MACRO 


$RCDCV 


ARGl 




, NARG 


NARGS 


ir 


NE , NARGS 




.NT*PE 


NTYPE.ARG1 


ir 


Nt.NTYPE 






MOV 


ARG1.R0 


ENDC 






endc 








TRAP 


2 


ENDM 


$BCDCV 




MACRO 


$DATUPK 


ARGl 




,NARG 


NARGS 


IF" 


NE , NARGS 




,NTYPE 


NTYPE.ARG1 


IF" 


NE.NTYPE 




MOV 


ARG1.R0 


ENDC 






ENDC 








TRAP 


3 


ENDM 


$ DA TURK 




MACRO 


$Bi TFIL 






TRAP 


4 


ENDM 


$HYTfIL. 




MACRO 


5CI.RBMP 
TRAP 5 




F.NOM SCLRBMP 




MACRO 


*BKRE.AD 






TRAP 


6 


ENDM 


iBKREAD 




MACRO 


SRDOAT 






TRAP 


t 


ENDM 


SRUUAI 





N5 



btQ 0059 



, MACRO 


SwRTDAT 

TRAP 

SUHTDAT 


10 




SBIKURT 
TRAP 

SBLKWRT 


11 


.MACM*: 


$WR t lC 

TRAP 

SURTi C 


1«? 


.macro 

.FND^ 


ICl.RtK* 
TR.VP 

SO RBL* 


15 




SPAkNAm 

TRAP 
JPrtKNAM 


14 


. *A~RO 
. f NO* 


S'iPMAM 

TRAP 
JTtPNAM 


15 


. 1 M?M 


J MB L* AD 

'RAP 

tM6l*'AR 


lb 


-MACPl 1 
.ENDH 


SCMK iJM 

TRAP 
*CH*SUM 


17 


. M! «CR... 
. t M)M 


TRAP 
JRMOvl 


^0 


.MACRO 

.t '■■i'JC 
.FNDM 


$ ABORT 
ARG 

. r »PM* 

TRAP 
5AB0PT 


ARG 
PI 


.MACRO 
♦ ENUM ! 


SDTOU. 

r RAP d'd 

r r ohL 



ARti 



B4 



MACRO 

ENOM 


J BOOT 

TRAP 
5BOOT 


SS 


MACRO 
ENOM 


SCLRMAP 

TRAP 
$CLRMAP 


J>4 


MACRO 
ENOM 


$ALOCBK 

TRAP 
tAt.OCBK 


c?5 


MACRO 
ENOM 


$ ALLOC 

TRAP 

$Al LUC 


Jt> 


MACRO 
ENOM 


SREADMP 

TRAP 
SREADMP 


j j 


MACRO 
ENOM 


fCLSMAP 

TRAP 

ICLSMAP 


30 


MACRO 
ENOM 


JWRTMAP 

TRAP 

SWRTMAP 


31 


MACRO 
ENOM 


SSTl.fDS 

TRAP 
SST'JTDS 


33 


MACRO 
ENDM 


*CLOSE 

TRAP 

JCl.OSE 


54 


MACRO 
bNDM 


*DAi.SB« 

TRAP 

iOALSBK 


35 


MACRO 
ENOM 


*DAU.NK 

TRAP 

tOAUNK 


36 


HACRQ 

F.NDM 


SOAlCTC, 

TRAP 

iDALCTC, 


37 


MACRO 
ENOM 


• '',•' HAPS 
TRAP 

ISTMAPb 


40 



SEQ U040 



LIST 



C4 



» ♦ 


St 








DOB 


OFFSETS 










XBUT 


64 


{INDEX 


TO DOB MONITOR BUT FT. R 




XWCTR 


■6.? 


{INDEX 


TO WRITE COUNTER 




XWILD 


60 


1 INDEX 


TO FIIE MODE INDICATOR 




XrLCNT - 


■5b 


i INDEX 


TO FILE COUNT 




XSVMAP « 


-S4 








XSVCNT « 


52 








XSVBLK • 


-so 








XSVNAM « 


-46 


iPHON^ 


UFD BLOCK POINTERS 




XSVEXT ■ 


4.: 








XSVDAT 


-40 








xsvxx 


36 








XISTBK » 


-54 








XBKLGT • 


-3*? 








XLST8K « 


-30 








XSVUPT * 


•26 








VIST 


-24 


j INDEX 


TO FIRST POINTER 




XBT 


-24 


{INOEX 


10 BOOT ROUTINE 




BOT 


-24 


{INDEX 


TO BOOT ROUTINE 




7FR 


-22 


{INOEX 


TO ZERO ROUTINE 




DLT 


-20 


{INOEX 


TO DELETE ROUTINE 




CLS 


•16 


{INOEX 


TO CLOSE ROUTINE 




t TR 


-14 


j INOEX 


TO ENTER ROUTINE 




SRH 


••12 


1 INDEX 


TO LOKUP ROUTINE 




ALC 


-10 


{INOEX 


TO ALLOCATE ROUTINE 




SVC 


-6 


j INOEX 


TO SERVICE ROUTINE (DRIVER) 




X5V 


-6 


; INOEX 


TO SERVICE ROUTINE (DRIVER) 




INI 


»-4 


; INOEX 


TO INIT ROUTINE 




XDN 


• 2 


{DRIVE 


NUMBER INOEX 




XFR 


'1 


{RESULT STATUS 




XCM 


•0 


» INOEX 


TO COMMAND REGISTER 




xwC 


■2 


{INOEX 


TO WORD COUNT 




XBA 


•4 


{INDEX 


TO BUS ADDRESS 




XDT 


•6 


i INOEX 


TO BLOCK NUMBER 




XCO 


'10 


j INOEX 


TO COMMAND 




XRD 


•12 


{INOEX 


TO READ COMMANO 




XUT 


-14 


j INOEX 


TO WRITE COMMANO 




xBC 


•16 


{INOEX 


TO REQUESTED BLOCK COUNT 




XDR 


■20 


{INOEX 


TO 1ST OIR BLOCK POINTER 




xNB 


•22 


;INOEX 


TO LAST BLOCK * ALLOCATED 




XX NAM 


= 24 


{INDEX 


TO ASCII NAME IN DOB 




xfnf i d 


* 


26 






feytblk 


1 


512. 





SLU 0041 



{MJDOOl 
iMJDOOl 
{MJDOOl 



{MJD001 
jMJDOOl 



j MJDOOl 
j MJDOOl 
{MJDOOl 



04 



uenernl purpose equates 



poge-j 



b 


to 


b 


ti 


b 


t2 


b 


t5 


b 


t4 


b 


t5 


b 


t6 


b 


t7 


b 


tio 


b 


tl2 


b 


tl5 


prtcsr 


■ nsta 


• nbuf 


outsta 


outbu f " 




Ust 



T 


' 11 


BFLL 


• 07 


I 


12 


C 


■ 15 


u 


• 174 


CTC 


• 5 


XON 


' 21 


xorr 


< 23 


del 


• 177 


BCSR 


1 77520 


PCRLo 


• 177522 


BLKID 


• 000200 


DSWR 


• 177570 


ODISP 


• 177570 


$SWR 


* 160000 



32. 

1 

2 

4 

10 

20 

40 

100 

200 

2000 

10000 

100000 



177560 

insta»2 

1 7 7564 

Outsta+2 



SEU 0043 



j tab character 

jbell character 

iline feed character 

j carriage return cha^ucter 

\ vertical dash character 

jcontrol-c 

(output on 

joutput off 

l rubout 

iBoot/D iagnost ic Status register 

;Paoe Control register 

;UFD block is memory /per Ipheral 

;Har&H»re switch register 

{Hardware displa/ register 

jF'lagv for APT control 

{number of pages in EEROM 



l??V etjriwy printer address 



..Bl 
..CI 
..Dl 
..El 
,.F1 

. .Gl 
. .HI 
..II 
..Jl 
.,K1 
..LI 
..Ml 
..Nl 



..B2 
..C2 
.,02 
..E2 
. .F2 
..G2 
,.H2 
..12 
..J2 
..K2 
.,L2 
..M2 
.,N2 



.NLIST 
j THE FOLLOWING MACRO 



..B3 
,.C3 

..03 
..E3 
..F3 
..G3 

. .H3 
..13 

..J3 
. .K3 
..L3 
,.M3 
..N3 



.MACRO $BOOT 
.NLIST 



+ + 



B4 

C4 

..♦.04 



